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■ Hvem kender ikke GHOST- 
BUSTERS. DECATHLON eller 
PITFALL II? 

Allesammen, vel nok. Men 
kender du ogsd manden bag 
disse software bestsellere, der 
korer i over 6 millioner eks- 
emplarer verden over. Plus 
sikkert lige sd mange i pirat- 
kopier. 

Han hedder David Crane, er 
30 dr og ligner alt andet end 
en spillanatiker. "Soft Speci¬ 
al' ' traf David under et besog 
i London, og naturligvis mdtte 
Crane underkaste sig et "3. 
grads forhor". Men forst lidt hi¬ 
stone . . . 

I 1979 arbejdede David Cra¬ 
ne tor Atari. Sammen med tre 
andre kollegaer besluttede 
han at grundlcegge det uat- 
hcengige sottwarehus Activi¬ 
sion, hvis erklcerede mdl var 
at lave bedre software til Ata- 
ris TV-spil end Atari selv kun- 
ne. 

I lang tid koncentrerede Ac¬ 
tivision sig da ogsd udeluk- 
kende om Atari - t.eks. med 
STAR MASTER. PLAQUE AT¬ 
TACK og KEYSTONE KAPERS - 
og forst tor ni-ti mdneder siden 
cendrede Activision ofticielt 
signaler tor at blive mere alsi- 
dig. I dag har Activision 130 
mennesker ansat, og hoved- 
scedet ligger i Mountain View 
midt i Calitorniens legendari- 
ske Silicon Valley. 

David Crane tortceller, at han 
bruger mellem 8 mdneder og 
1 dr til at skabe et nyt compu- 
terspil. Hver del bliver testet 
ved at spille med det. Pd den 
mdde ser jeg lynhurtigt, om 
spillet fungerer, og om det 
kan tcenge publikum, siger 
David. 






GHOSTBUSTERS, - bestseller 
lavet pdr rekordtid. 



DECATHLON, - jeg spiller 
selv tor at se, om min tde er 
icengende ogkan holde hos 
det store publikum. 
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Et naturligt spargsmdl til Cra¬ 
ne var selvlalgelig, hvordan 
han udviklede og lik ideen til 
GHOSTBUSTERS. 

- I starten kan jeg gd lcenge 
og gruble over ideer. De kan 
komme overalt, - ndr jeg ser 
en dame snuble pd gaden el- 
ler kigger pd en gammel Tar- 
zan film i TV. lorklarer David. 

- Jeg havde loenge gdet 
med en idb om at skabe et 
udspil. der havde noget med 
bilers udrustning at gore, da 
tilmfolkene bag "Ghostbu- 



GhoKbusiersTvp Hvu <Su kunrve t<»nXe dig I rrulbondoDan ndrdu 
spOler GhoSbujton ikaldubarettYkke rerum r>6s des bfcvet jpurgi 
om navn Derettet indKstef du ionior.ummet 458 og et nu vet 
de« nges* Ghcsibuflets med t million dollars at start® med 


sters" kontakteSte os Vi kun- 
ne slet ikkehgrveraj^et at lave 
dettespilvhivfe'detikke havde 
''****'' , at jeg laktisk havde de 
ftverordnede detaljer klar al- 
lerede Det gcelder ting som 
; karetajet, hvordan det loesses 
og losses og selvlalgelig et by- 
kort Resten var kun at tylde 
pd. 

Crane understreger i avrigt, at 
han ikke har mulighed lor at 
lave hele spillet selv. I dag 
lungerer han mere som in- 
struktor og styrer gralikspecia- 
lister, lydlanatikere og ma- 
skinkodelolk. 

Et spil som GHOSTBUSTERS Ids 
til Here lorskellige computere. 
Hvilken maskine bmger Da¬ 
vid mon selv? 

- Jeg arbejder udelukkende 
med Commodore 64, men vi 
har da ogsd starre maskiner. 
Ndr Assemblerkoden skal 


oversoettes til maskinsprog, 
bmger vi en starre PC. Sd gdr 


det hele meget hurtigere. Des- 
uden benytter vi et par udvik- 
lingsprogrammer til gralik og 
musik. Men i princippet om- 
skrives alle spil Ira C-64 og til 
andre systemer, l.eks. MSX og 
Spectrum, lortoeller David 
Crane. 

Til sidst ville vi godt have et 
par gode rdd til lcesere, som 
geme vil lorsage sig udi spil- 
udvikling. 

- Jeg md nok straks tortoelle, 
at jeg nemt kan slds i point at 
dygtige unge kncegte. Dem 
holder vi labende kontakt 
med lor at Id inspirationer. In¬ 
gen al dem har dog lorestillin- 
ger om, hvor svcert det er at 
lave et rigtigt godt spil, lorkla¬ 
rer Crane. 

- Siden jeg lor mange dr si- 
den besluttede at blive spilud- 
vikler har jeg videreuddan- 
net mig i elektronik, nyere 
programmeringssprog og 
matematik. Det store problem 
ligger nemlig i at Id udtrykt 
det virkelige liv i matematiske 
formler. 

- Jeg bmger altid et eksem- 
pel med en springende bord- 
tennisbold. Den skal ikke ba¬ 
re ramme en Hade og hoppe 
op. men ogsd svceve. som 
om den var udsat lor Jordens 
tyngdekralt. For at kunne go¬ 
re det, md man vide en mas¬ 
se om simulation, slutter Da¬ 
vid Crane. 

Han har i avrigt ingen konkret 
plan om et nyt spil som allaser 
lor GHOSTBUSTERS. Men han 
antyder. at han er blevet 
meget inspireret al moderne 
europceisk musik og film. Sd, 
hvem ved. . . □ 

LeitBomberg 



Dig og Bmd 


■ Helten jager rundt i Paris' 
ensrettede og krogede gader 
i en stjdlet taxa. Hele tiden 
med skyggerne ira en dalen- 
de faldskcerm foran sig. 
Gyngende i laldskcermens 
stropper hcenger nemlig skur- 
ken - en fantastisk flot, men li- 
gesd farlig kvinde. Hun flygte- 
de ira dig ved at hoppe ud ira 
Eiffeltdmet. Hvem kunne ogsd 
vide, at hendes troje havde 
indbygget faldskcerm? 

Den vilde jagt fortscetter gen- 
nem gaderne og strcederne. 
Fodgcengere og cyklister ka- 
ster sig til siden i rcedsel, og du 
indhenter den ene bule efter 
den anden ved at ramme 
vejskilte, parkerede biler, mu¬ 
re og alskens andet ragelse, 
der stdrivejen. 

Til sidst ldr du taget klippet af 
vognen, og bagpartiet skce- 
res af i et voldsomt sammen- 
stod. Men bilen korer bare vi- 
dere. Helten skal nok fd fat i 
den flyvende kvinde, der 
bcerer pd en livsvigtig kode- 
meddelelse. 

Sddan kunne man beskrive 
hcendelsesforlobet i den nye- 
ste James Bond film - "A 
View to a Kill” - som netop 
har haft Danmarkspremiere. 
Og hvilken film - Roger Moore 


er tilbage i topform med mas- 
ser af action og skonne kvin- 
der omkring sig. 


James Bond 
og computere 

Bond filmene har ncesten al- 
tid indeholdt computergrej. 
For nogle dr siden sd vi de for- 
ste armbdndsure med ind¬ 
bygget sender og TV og sene- 
re datamater, der styrer robot- 
ter, undervandsbyer osv. 

I "A View to a Kill” arbejder 
skurken med avancerede 
Philips kcempecomputere, 
men i al beskedenhed kan 
du ogsd vcere med derhjem- 
me pd din egen maskine. I til- 
pas god tid for filmpremieren 
udsendte engelske Domark 
nemlig ''A View to a Kill'' pd 
computerbdnd og diskette til 
en stribe populcere datama¬ 
ter. 

Den danske importer, Semi¬ 
cap Data, har stillet 10 "A 
View to a Kill'' spil til rddighed 
for en konkurrence her i' 'Soft 
Special''. Eneste krav er, at du 
besvarer sporgsmdlene sene- 
re i denne artikel, - og selvtel- 
gelig sender dem ind til os pr. 
brev. 


G6 Roger Moore 
i Bond bedene 

"A View to a Kill” spillet be- 
stdr af tre dele, hvor du kom- 
mer alvorligt pd arbejde. Spil¬ 
let, der er action- og arkade- 
preeget, horer nemlig til de 
sveerere i genren. 

Forste & af spillet foregdr i det 
indre Paris, hvor du - som 
ncevnt tidligere - skal jage 
den kvindelige agent. Pd 
skeermen ser du hele tiden 
gaderne ovenfra, og ind 
imellem ogsd faldskcermens 
skygge, Den skal du folge sd 
godt du kan, men hold tun- 
gen lige i munden, . . 

Via forruden pd din stjdlne ta¬ 
xa ser du vejen foran dig. Du 
kan ogsd mdle hastighed og 
afstanden op til den flyvende 
kvinde, Hold ogsd 0je med ti¬ 
den og en mdler, der viser, 
hvor slemt din bil er blevet til- 
redt ved diverse sammen- 
st 0 d. 

Afdeling2i "A View to a Kill” 
foregdr pd San Franciscos 
rddhus. Skurken Max Zorin 
har forskanset sig her, men 
scetter ild til hele skuret, da 
han opdager, at Bond er i 
hcelene pd ham. 

Din opgave bliver nu at for- 
soge at undslippe flammerne 


og samtidig redde Zorins assi¬ 
sted, Stacey. Undervejs mndt 
i det store hus skal du finde be- 
stemte nogler, ildslukkere, 
vandspande osv. for at holde 
flammerne pd afstand. 

3. og sidste del al" A View to a 
Kill" sender dig fluks til elek- 
tronikkens verdenscentmm, 
Silicon Valley i Califomien. 
Her har skurken fundet nogle 
underjordiske miner, som han 
vil spreenge i luften, sd alle 
computerfabrikker synker i 
gms. Din opgave, - tja geet 
selv. 

Vi skal lige naevne, at du h 0 - 
rer syntetisk tale under hele 
spillet, ligesom du kan vcelge 
mellem at hare hitmelodien 
' 'A View to a Kill" eller det op- 
rindelige Bond tema. 

Sddan kan du 
vcBre med... 

"A View to a Kill" fds til Com¬ 
modore 64 (bdnd eller disk), 
Enterprise, Spectrum, Atari og 
Amstrad, - sd de fleste lcesere 
kan vcere med. Besvar 
sporgsmdlene og indsend ku- 
ponen senest fredag den 6. 
September. Sd er du ogsd 
med i konkurrencen om 10 
speendende Bondspil fra Do¬ 
mark og Semicap Data.D 

Leit Bomberg 
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Abningsbillede ira compu- 
tersplllet. Kan du genkende 
rUtellebet? 


Konkurrence 


Spergsmdl 1: 

Hvor mange James Bond 
film er der lavet? 


Spargsmdl 6: 

Hvor mange listninger Ira 
"SOFT Special" indtasler 
du? 


Spergsmdl 7: 

Hvor gammel er du? 


Spergsmdl 2: 

Kan du naevne mindst 1 
anden film, der har dannet 
forbillede lor et computer- 
spil: 


Spergsmdil 8: 

Hvilke lorbedringer kunne 
du tcenke dig i' 'SOFT Speci¬ 
al"? 
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ETEVENTYRAF 


skrin, der crltid er fyldt med 
guld. 

Sd meget om handlingen, 
der er bedre end i de fleste 
adventures. Men lad os kom- 
me til det mere interessante - 
spillets opbygning. 

Kings Quest ser umiddelbart 
ud som om Moviesott teknik- 
ken tra t.eks. Valhalla er ble- 
vet anvendt. Kommer man 
ncermere ind pd livet at pro¬ 
grammed opdager man, at 
det er meget mere avance- 
ret. Hvert at skaermbilledeme 


I Kings Quest er der ikke no- 
get med at skrive "Northeast" 
eller "up" hele tiden, tor her 
styrer du Sir Graham enten 
med joystick eller cursortaster. 
Dette giver endnu en oplevel- 
se at gratikken, tor du er nodt 
til at gd udenom trceeme og 
de andre ting. Sir Graham 
kan ogsd svomme, hoppe og 
dukke sig. Alt illustreres tlot 
med sprites pd skcermen. 
Skcermbillederne er ikke 
''stilT'-billeder, tor hvis en per¬ 
son taler til dig, sldr dig, eller 


B 

inimim 


b+ 




ET ADVENTURE 


■ Hvis du stdr og vil anskatte 
dig et spilprogram til en IBM 
PC eller til din kompatible PC, 
md Kings Quest absolut vce- 
re med pd listen over dine 
overvejelser. 

Adventurespillet fra Sierra er 
noget ncer det Icekreste even- 
tyr vi har set, ikke bare pd 


PC'er men ogsd pd alle de 
andre microer. 

I Kings Quest er du blevet 
den cedle ridder Sir Graham, 
der skal tinde og hjembringe 
kongeriget Daventrys 3 tra- 
stjdlne klenodier. Det drejer 
sig om et spejl, der kan forud- 
se vejret, et skjold, der gar 
bcereren uovervindelig og et 


(der er mere end 100) er utro- 
ligt lcekkert opbygget grafisk. 
I modsoetning til alle andre 
adventures kan hver eneste 
lille blomst, sten eller, hvad 
der nu er pd skoermen under- 
soges, vendes og drejes. 

Det er bdde lcekkert, tordi 
man altid fdr en reaktion, 
men ogsd svaert, tor man 
kommer let til at overse spor. 
Dertor, "LOOK" pd og i alle 
trcestubbe, sten, huse og ob- 
jekter. 


hvad m/k nu toretager sig, - 
sd ser man det pd skcermen. 
Abner du et skab ser du dore- 
ne svinge op og ud kommer 
. det kunne du lide at vide, 
hva? 

Spillet er fyldt med tremmede 
vcesener, folk, troldmcend og 
dvcerge, der render rundt og 
torskrcekker dig. Og med tor- 
skrcekker mener vi taktisk 
skrcemmer livet ud at dig. 
Prov bare, ndr du har fundet 
noglen, (der er en) at gd op i 
bjerget en nat, du er alene 
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> look castle 

This is the castle of King Edward the 
Benevolent. 

> look at bridge 

L _ J 


hjemme . . forbavsende 
lydeftekter! 

Selv om man kan styre med 
joystick eller cursortaster, er 
der alligevel rig lejlighed til at 
skrive ord og scetninger pd 
engelsk. Ord som look, give, 
turn, dive, climb, get og with 
vil vaere dig en uvurderlig 
hjcelp. 

Det kan absolut anbetales at 
tegne et kort over Daventry. 
Vi kan robe, at det bliver et 
forbavsende let og overskue- 
ligt kort, selv med de mange 
skaermlokationer. 

Under spillet tildeles point, alt 
efter hvor optindsom man er 
En kcempe kan t.eks. knal- 
des ned med en slynge, men 
man kan ogsd "bare" und- 
gd ham, indtil han dratter om 
og sover. 

Som konklusion md vi erklce- 


re, at Kings Quest vel er et at 
de bedste, tor ikke at sige det 
bedste adventure, vi nogen- 

sinde har set. Sddan . 
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PISKERIS PA OPGA VE 


Programmet Chopper Squad 

er et af de scedvanlige acti- 
onfyldte shoot'em up' spit, 
som der gdr tyve at pd dusi- 
net. Du er helikopterpilot, og 
din opgave er at samle et an- 
tal tlydele sammen, sd du til 
sidst stdr med et helt fcerdig- 
samlet fly. 

Alt imens du flyver rundt pa 
skoermen for at samle dele- 
ne, bliver du angrebet og for- 
fulgt, hvorefter du formodes at 
skyde dine angribere ned. 
Ndr du endelig har fdet sam¬ 
let flyvemaskinen, skal du til 


LILLE FYR 
PA AFVEJE 

■ Doing Doing Doing Doing 
Doing. 

Er det en fugl. et fly, super- 
mand, nej, det er Qogo 2 fra 
Megastar Games, der er et 
softwarefirma med ncer til- 
knytning til Memotech fabri- 
kanterne i England. 
Megastar Games er nyt, men 
godt, for efter Continental 
Softwares monopol er det rart 
at fd nye kroefter med i spillet. 
Og kroefter er der i Qogo 2. 
Qogo 2 minder ikke sd lidt 
om Qbert, som du sikkert ken- 
der fra Arcade maskinerne 
pd bakken, eller hvor du nu 
bevceger dig. Hvor Qbert kun 
har den samme bane, igen 
og igen. findes der i Qogo 2 
prcecis 50 baner af varieren- 
de udseende og svcerheds- 
grad! 

Lyden er fantastisk god, den 
kan sagtens sammenlignes 
med C-64. Det samme gael- 
der grafikken. der er virkelig 
god. 

Qogo 2 er kommet for at 
blive, i mere end en forstand, 
for er du forst startet gdr der 
lang tid, for du slipper spillet 
igen. (Memodan). 

Grafik: (T |§ 11 

Lyd: , * OTe,, 1 11 

Action: " 10-11 

Fcengslende 10 


at samlet et nyt. 

Den eneste forskel er, at dine 
angribere nu har et nyt udse¬ 
ende. Hvad der sker ndr man 
har samlet det andet fly ved 
jeg ikke, da jeg ikke fandt 
programmet vcerd at ofre 
mere tid pd. Grafikken er 
klodset, og lyden kedelig. 
Det eneste, der fangede min 
opmaerksomhed. var det fak- 
tum, at spillets tema mindede 
fantastisk meget om det nu 
hedengangne Spectrum spil 
Jet Pac fra Ultimate (Twilight). 



Grafik: 

Lyd: 

Action: 

Fcengslende: 

Pris/kvalitet: 



AJ 

hjer 

maj 

om Da 
nmecoi 
jasiner: 

Sidst© 

mdne 

a s Top-25 Dilliste over Danmarks mess populaere programmer hi 
■nputere bygger pd oplysmnger Ira 50 computertorretmnger. slor- 
»computerafdeiinger og boghandlere landet over 

d 

l 

E 

to 

Z 

1 

o 

i 

- 

V 

0 

I 

[Atari 

E 

- 

Dambusters 

US Gold 

A 

* 

★ 


* 

* 

3 

2. 

3 

Shostbusten 

Activision 

A 

* 

□ 

I 

* 

3. 

4 

Pttstop n 

Epyx 

A 


□ 



* 

4. 

_ 

Softald 

Ocean m.v. 

A 

* 

□ 




5. 

12 

Bruce Lee 

US Gold 

A 

* 

□ 




6. 


Bounty Bob Strikes Back 

Big Five 

A 

* 

□ 



* 

7. 

6 

Raid on Bungeling Bay 

Arlola 

F 


□ 




8. 

23 

Super Huey 

US Gold 

F 


□ 



* 

9. 

25 

Decathlon 

Activision 

A 

* 

□ 

* 


* 

10. 

21 

H.E.R.O. 

Activision 

A 

* 

□ 


* 

* 

11. 

22 

Shadow Fire 

Beyond 

A 

* 

□ 




12. 

2 

Raid over Moscow 

US Gold 

A 

* 

□ 


* 


13. 

- 

Entombed 

Ultimate 

E 

* 

□ 




14. 

11 

Summer Games 

Epyx 

A 


□ 



* 

15. 

10 

Sorcery 

Virgin 

A 

* 

□ 

* 

* 


16. 

1 

Impossible Mission 

Epyx 

A 


□ 




17. 

- 

Rock’n Bolt 

Activision 

A 


□ 




18. 

20 

Solo Flight 

US Gold 

F 

* 

E 




19. 

- 

Cauldron 

Palace 

A 

* 

E 




20. 

- 

Talladega 

US Gold 

A 


E 

h 



21. 

- 

Rolands Rat Race 

Ocean 

A 

* 

E 




22. 

- 

Jump Jet 

Anlrog 

F 


E 




23. 

25 

Fort Apocalypse 

Synsoft 

z 

* 

E 

_ 

i 


* 

24. 

- 

Rocket Ball 

IJK 



E 

_ 



25. 

- 

Spy Hunter 

Activision 

A 

* 

□ 





<X4lo>Uartng*i A = ArkaO* 'action tpU t = leentyi Ad.enture T ■ nrrMlfnutatlon * : Stra1*g»»pU U s UndeibotOrUng 



FRANSK PA 
PICCOLINE 

Skal vi nu til at spille adventu¬ 
re-games i fransktimerne? 
Tja, mdske. I hvert fald er det 
netop, hvad Francoise An¬ 
dersen og hendes firma Soft¬ 
ware i Undervisningen 
lcegger op til. Herfra kommer 
en rcekke interaktive compu- 
terspil, som lcerer skoleelever- 
ne fransk, mens de spiller. 

La chasse au tresor (skatte- 
jagten) er det farste adventu¬ 
re i serien. Her skal du finde 
en kiste med guldmanter, 
som din gamle onkel har 
gemt. Desvoerre dade han, 
inden du fik besked om, hvor 
de mange dejlige penge Id. 
Sd du md ud at sage. 

I alt har du 24 genstande, du 
skal arbejde med, og al kom- 
munikation foregdr selvfalge- 
lig pd fransk. F.eks. sparger 
computeren "Qu'est-ce que 
Vous prenez?” Hvad tager 
De, - fransk er jo et hafligt 
sprog, ikke sandt. . 
Indbygget i programmet er 
forskellige hjaelpefunktioner, 

- grammatiske skemaer og 
en ordbog. Sdfremt der er et 
fransk ord, du ikke forstdr - og 
det kan jo ske for selv den 
bedste - indtaster du ordet, 
efterfulgt af spargsmdlstegn. 
Lynhurtigt fdr du svar pd 
dansk samt angivelse af kan 
osv. 

Men, hvor er det indloerings- 
moessige element? Jo, det 
overordnede problem er, at 
eleverne ud fra et ord i ube- 
stemt form skal finde frem til 
samme ord i bestemt form. 
Forfatteren havde oprindelig 
regnet med bajningen som 
det vcesentlige i program- 
met, men efter praver pd fle- 
re gymnasier fandt man frem 
til, at ordbogen blev brugt 
mere end forventet. Spillet 
var udviklet til lG'ere, men 
viste sig at vaere sproglig for 
svcert. Sd nu er det 3G'ere, 
som fornajer sig. 

Francoise Andersen har ind- 
samlet vcerdifulde erfaringer 
med La chasse au tresor. Nu 
er flere spil undervejs pd for¬ 
skellige sprog, ligesom pro- 
grammeme fremover kan 
leveres pd bdde Piccoline, 
Butler og IBM PC. 
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■ Nej, det drejer sig ikke om 
en modificeret udgave af Nu- 
sers velkendte tegneserie- 
eventyr, men om Microsofts 
nye llysimulatoi Spitfire 40. 
Spillet virker meget realistisk, 
og selve skcermbilledet med 
instrumenter o.lign. skulle 
vcere direkte adopteret fra 
originale tegninger hos Spitfi¬ 
re producenten Supermarine. 
Dog er der mindst to ting, som 
ikke fandtes i de originale ja- 
gere - men, som piloteme sik- 
kert gerne ville have haft. Det 
er "rudder indicator", som vi- 


ser positionen af haleroret, - 
og "pitch indicator", der gi¬ 
ver et sidebillede af flyet. 
Manualen til Spitfire 40 er ik¬ 
ke scerlig fyldestgorende, selv 
om den ndr langt omkring. 
Den oplyser f.eks. ikke, at 
man ved for stejl stigning kan 
vende op-og-ned (loope), 
hvilket kan give alskens over- 
raskelser. Pas ogsd pd lan- 
dingsstellet (gear), der skal 
hives op sd hurtigt som mu- 
ligt. Ellers crasher du. 

Til gengceld rummer Spitfire 
40 mange udmcerkede og 


TOGTORTUR 



■ Spillet loader.gaaab 

.nd. nu dukker skcerm¬ 
billedet frem.SHIIIT .... 

nu skete det igen. Problemer 
med at loade, og skcermbil¬ 
ledet bliver til smd irriterende 
firkanter uden den mindste 

sammenhaeng . men; 

.hvad sker der?. 

firkanteme glider rundt, blon¬ 
des ligesom i fjernsynet ndr 
der er OBS . . . og frem duk¬ 
ker Locomotion. 

DU er lokomotivforeren, der 
skal igennem 10 baner, hvor 
du selv skal lcegge sporet un¬ 
der et nerveflaensende tids- 
pres. Sporet skal lcegges pd 
samme mdde, som man ord- 


Locomotion er meget, meget 
svaert og minder ikke sd lidt 
om Rubiks terning, hvad ddt 
angdr. Her er dog to gode 
rdd: 

Prov at fd toget til at kore i en 
cirkel. Sd kan du lcegge spo¬ 
ret i ro og mag, for uret er 
stoppet, ndr toget korer. Hvis 
tidsfristen er lobet ud, tryk hur¬ 
tigt pd O-tasten, da hele spil¬ 
let sd gdr langsommere (lidt 
fusket). 

Locomotion er et Mastertronic 
spil, og koster kun ca. 40 kro¬ 
ner, men det er meget, me¬ 
get mere vcerd. 



OP OG NED AD 
STIGER 


ner de smd plastic-spil, hvor 



f.eks. 24 brikker ligger fast pd 

Grafik: 

10-11 

en plade med plads til 25, og 

Lyd: 

9-10 

hvor det sd gcelder om at fd 

Fcengslende: 

10 

billedet ordnet. Bare ved at 
rykke brikkeme frem og tilba- 

Pris: 

11 


ISX 


■ Du befinder dig dybt nede 
i en forladt mine. Forladt . . . 
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uscedvanlige features. Med 
MAP kan du se et kort over 
hele Sydengland, hvor du 
selv er indtegnet med rod prik 
og tjendens Messerschmidt el- 
ler Focke-Wult med sort. Vil 
du have din position endnu 
mere prcecist. kan du zoome 
ind med "N". Ganske tikst. 

I Spitfire 40 kan du vcelge 
mellem de krigeriske "com¬ 
bat practice" (ovelse) og 
"combat" (luftkamp), mens 
pacitister kan ove sig i flyv- 
ning med "practice". Her har 
man kun sig selv og sin egen 
dumdristighed som modstan- 
der 

I torhold til mange andre 
krigsbaserede spil kan man 
ikke kalde Spitfire 40 tor scer- 
lig blodig. Selve luttkampen 
har vi sdmcend ogsd set i me¬ 
re medrivende udgaver. 


ja, men kun at alt levende. 
Minen er nemlig tuld at spo- 
gelser, som du ustandselig 
md passe pd. Og hermed er 
der lagt op til handlingen i 
Spooks & Ladders. 

Fra bunden at minen skal du 
arbejde dig op gennem 10 
niveauer, og hvert sted skal 
du indsamle nogle genstan- 
de, som er placeret lorskellige 
steder i gangene. Det drejer 
sig om nogler, skattekister, ju- 
veler og penge. Du tdr points 
tor hver ting, du samler op. 
Du kan bevcege dig rundt i 
minen ved at kravle op og 
ned ad stiger og trapper. 
Ydermere er der placeret lor¬ 
skellige mekaniske indretnin- 
ger rundt omkring i minen. 
Det drejer sig om "elevato- 
rer" og transportbdnd, En ele¬ 
vator er en spiralformet tin- 
gest, der drejer rundt og kan 
lore dig op eller ned. 

Ndr du gdr pd et transport¬ 
bdnd, i samme retning som 
bdndet korer, bevaeger du 
dig meget hurtigt, men gdr 
du imod bdndets retning 
kommer du kun meget lang- 


Vou on the landing, it's a VERV 

or dinary X anding. 

Vou can go north, south, east. 

Vou can see- nothing else o-f interest. 


What are your instructions^ Mightw One 
? EAST 

Vou start east 


| Vou are in the bathroom, the suite 
in ftduacado - gross! 

Vou can cjo west. 

| Vou can see a toothbrush 

a -face -flannel 


What are your 
| NORTH SOUTH 


instructions,© M1ghty On* 
WEST EAST TAKE 


STORBY VANVID 



men tor alle tilfceldes skyld, - 
0 v dig forst i at styre din Spitfi¬ 
re. Den er bdde i virkelighe- 
den og i spillet noget hurtige- 
re at tumles med end en 
Boeing 747 eller en lille Cess¬ 
na som i "Solo Fligth". (Twi¬ 
light). 

Gratik: _ 10 

Lyd: “HI 8 

Action: J 8 

Betjening: -l”l 9 

Pris: 9 


■ Hekse og trolde, magiske 
trylleformularer og anden 
overtro er yt. Hvorlor dog vce- 
re nodt til at tage tantasien til 
hjcelp, ndr vi kan fd alt det 
eventyr, vi onsker, blot ved at 
kcempe os op at lcenestolen 
og gd en tur ned pd gaden. 
Mean Streets tra Kuma hand¬ 
ler om alle de problemer, du 
som almindelig borger i en 
storby kommer ud tor. Fra det 
ojeblik du vdgner, indtil du 
sidder i sikkerhed pd dit kon- 
tor. 


Hvert sted du kommer til, bli- 
ver kort beskrevet at compu- 
teren, der samtidig oplyser, 
om der her befinder sig nogle 
ting, som du mdske kan have 
brug tor nu eller senere. De 
andre ordrer du kan bmge er 
TAKE, USE, GIVE og DROP. Det 
er sd op til dig at linde ud at, 
hvorndr du skal bmge hjcel- 
pemidlerne. 

Pd din tur gennem byen 
kommer du ud for alskens tor- 
hindringer. Et sted skal du 


somt frem. De tleste minegan- 
ge er solide nok, men der An¬ 
des en del sten, som smuldrer 
og torsvinder, ndr du gdr pd 
dem. 

Dine tjender er minens spo- 
gelser, som gar alt hvad de 
kan tor at genere dig. Efier- 
hdnden som du arbejder dig 
op gennem minen, kommer 
der Here og tlere, og enkelte 
bevceger sig meget hurtigt, 
Det siger sig selv, at du ikke 
md komme i kontakt med 
spogelserne, men du er des- 
vcerre ikke udstyret med no¬ 
get vdben, som kan drcebe 
spogelserne Du har kun en 
hakke, og det eneste den 
kan bruges til, er at lave et 
hul i minegangens gulv. Hvis 
et spogelse kommer tor ncer, 
er der ikke andet at gore end 
at lave et hul og hdbe, at 
spogelset falder i. Hvis det 
sker, skal du fylde hullet op 
hurtigst muligt, og pd den 
mdde begrave spogelset. Sd 
er der dt spogelse mindre, og 
du indkasserer nogle points. 
Det kan vcere fristende at std 
pd et sikkert sted og vente pd 


at spogelserne gdr i tcelden, 
men pas pd: Det tager tid, og 
der er kun en vis mcengde 
lutt i minen. Spogelserne har 
tor ovrigt den tordel, at de ik¬ 
ke gdr, men svcever, De kan 
derlor bevcege sig hurtigt 
mod et transportbdnds ret¬ 
ning, og de svage sten tor¬ 
svinder ikke under spogelser- 
ne. 

Det kraever behcendighed at 
klare sig igennem Kuma-spil- 
let Spooks & Ladders. Man 

kan vcelge at starte pd et 
hvilket som heist niveau. Det 
er rart. at man ikke absolut 
skal igennem de torste nem- 
me niveauer ved hvert nyt 
spil. En ulempe er, at man ik¬ 
ke kan bmge MSX'ens pileta- 
ster til at bevcege sig rundt i 
minen. Man skal i stedet bm¬ 
ge Z/X og M/K-tasterne. Dog 
kan joystick ogsd benyttes.D 


Gratik: 

Action: 

Lyd: 

Hastighed: 

Pris: 


passere en smal gyde, hvor 
der befinder sig en bande 
ungdomskriminelle (kan 
"gluesnifters" overscettes til 
dansk?). Hvordan slipper du 
igennem uden at blive over- 
faldet? Flere steder er vejen 
blokeret at politiske agitato- 
rer, og her md du blutfe dig 
vej igennem eller bestikke 
personerne. Der er virkelig 
gjort torsog pd at beskrive 
nogle barske hcendelser, 
som i et moderne storbysam- 
fund ikke er helt urealistiske. 
Et at de vcerste eksempler fin¬ 
der du, ndr du pd et tidspunkt 
moder en medarbejder pd 
socialkontoret. En vred klient 
har sat ild til den stakkels 
mand, og det bliver din op- 

gave at slukke ilden. Det ly- 
der barsk, men man horer jo 
fra tid til anden om overlaid 
pd socialarbejdere. 

Mean Streets er et rent ad- 
venture-spil. Der er ingen gra- 
lik overhovedet. Alt toregdr i 
form at en tekstdialog med 
computeren. Ordforrddet er 
mildest talt spinkelt, spillet har 
dertor ikke mulighed tor at 
blive lige sd nuanceret som 
andre mondcene adventure- 
spil. 

Alligevel er det virkelig 
laengslende. Du kommer i 
hvert laid ikke hele vejen 
igennem i lobet at' 'no time" 
En tordel er det dertor, at 
programmet giver mulighed 
tor at lagre alle oplysninger 
om sted, besiddelser og lig- 
nende pd bdnd. Du kan sd 
lortscette hvor du slap pd et 
senere tidspunkt, 


Da programmet er engelsk, 
handler det selvtolgelig om 
engelske torhold. Og her kan 
vi godt td problemer. Det vil 
f.eks, vcere trivielt tor en eng- 
lcender at vide, hvilken parti- 
farve avisen "The Guardian" 
har, men det horer ikke til 
danskernes almenviden. 
Desuden bliver der pd et tids¬ 
punkt spurgt om navnet pd 
den sidste saksiske konge(!!). 
Det ved enhver engelsk 
kncegt, som har lulgt med i 
historietimerne, men vi md 
indromme, at vi i det sporgs- 
mdl blev nodt til at snyde ved 
at kigge i programteksten 
(som er ren BASIC). □ 


Betjening: 

Fcengslende: 

Pris: 
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Samler du pa programmer 

Sa kan du ikke undvaere SOFT. Danmarks eneste, rigtige softwaremagasin. 
Hver anden maned finder du store og sma programlistninger til alle markedets 
kendte computere - fra ZX-81 over Commodore 64 til IBM PC. 

SOFT’ spilredaktion er ogsa pa faerde i 














Du styrer din pencil med ta 
sterne: 


F>RDDR«M = MIRES T EIC3M I NDER 

1 RRIMT'* < CLRi C3LJI_:» •• = EOKE S32S X , O = ROKE S3 
2SO, 11= ROKE <£>50, 1 2B 

2 PRINT" < C RSR MEID3, S R M C E S 1» >+.*<-4<:+z TEONEMMS 

K I ME »*>k»•«>•« • • 

3 RRIMT" CCRSR NED3i SRMCE 15 » TMSTER ! ! ! ! 

U RR I IMX < CRSR MED, B P M C E 1 7 1 E R T 

5 PRINT" 'v. I 7 

£> RRIMT 1 ' CCRBR NED, SPRCE171 U— —<3 

*7 RRIMT" CCRBR MED, EPHCE 1 S i 7 I 

3 RRIMT" C V B 

3 RRIMT"CCRBR NED2,SPfiCE13)+ = BEET SKM 

ERM 

I O RRIMT" CCRBR NEDA, SPMCE3H MIT RMS' KEV 

TO CONTINUE" 

II GET «*=IP R*=""TMEN 11 

12 RRIMT" CCI— R I> " 

13 RRIMT" PLfiCERIND ME REM" 

1 Ci INPUT" CCRSR NED2, SPOCE4 > EDDRET " ' V 

15 INPUT"CCRBR NED, SPMCECi. H V7MNDRET "?X 

1 RRIMT" CCRBR MED^l., SRMCES :> VENT ET RPR 

MI MUTTER" 

2*7 EDR UJ=1 TO 1 OOO = NEX T s PR I NT " < CCR " 

23 BRSE=2>K4036 

23 POKE 532*72, REEK C 532*72 J OR 3 

30 POKE 532£>S, PEEKC53265J OR 32 

UO POR I=B«SE TD BftBE+7933 

50 POKE I, O: MEX T I 

£>0 EDR I = 102A TD 2023 

70 POKE I, 6*U = NEXT I 

*7 1 V=5324S:PDKE U+21, U - POKE 20Ci2, 13 
72 POR N = 0 TO &2=REMO GJ - POKE 332-t-N, G> = ME 

X T 

*73 DRTO O, O, O, O , O, O, O, O, O, O, ft, O, O, XU-. O, 

O, 23, 0, 0, 56, O, O, 1 12, O, 0, 96, O, O, 123, O, O, 


74 DOTfi O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 

o, o, o, o, o, o, o, o, o, o, o, o, o, o, o, o 

SO Y = Y -»- M 
30 X=X-«-B 

1OO CH=INTCX7S> 

11O RO=INT<Y73I 
120 l_N = Y MND 7 

130 BY-BR5E + RD , «‘320+S+CH+I— M 

lftO B I —7 — < X MMD 7 !> 

150 POKE BY, PEEK < BY I OR < 2-tB I I 

151 IP X-»-l£>>255 TMEN POKE V-*-l£>, Ci-3R=X—24 


■ Programmet tegner i hajop- 
laselig giafik. Det kan tegne 
hvad som heist, da der ikke 
benyttes farver. 

= Slet skcerm j£ 

- = Flyt uden at tegne p 

+ = Tegn igen V 


Placering at pennen: I 

Y-retning max. 200 I 

X-retningmax. 320 
Programmet tdler ikke, ot 
man karer ud i kanteme. □ 
Lars Nielsen 


COMMO 


DORt 


64 
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Testamentet 



Du har netop overvceret din 
onkels begraveise. Efterdret er 
pd vej, og vinden blceser 
kraftigt igennem din tynde 
sommerjakke. Du kcemper 
dig vej op til afdades advokat 
for at td oplaest testamentet. 
Du er eneste arving. Havde 
han mon styrtende med pen- 
ge? 

Advokaten dbner den forseg- 
lede konvolut, og siger: Alle 
mine penge skal gd til min 
nevo, sammt alle mine ejen- 


domme. Neej!! udbryder du: 
er jeg nu blevet rig. Advoka¬ 
ten sukker dybt. Nej ikke, tar 
du finder pengene og ejen- 
dommene. Deres placering 
tremgdr nemlig mystisk nok 
ikke af testamentet. 

Onklen har opsat en masse 
tcelder, men problemet er at 
du er en trygtelig bangebuks. 
Falgelig anscetter du en 
mand til at klare opgaven. 
Sddan lyder indledningen til 
dette adventure spil til Am- 


strad. 

Spillet skal indtastes meget 
omhyggeligt, da alle mellem- 
rum skal med, programmet er 
helt i BASIC, og danske karak- 
terer ligger pd klamme ven- 
stre, klamme hajre, backlash 
(skrdstreg til venstre) for hen- 
holdsvis ce, 0 , d. De smd bog- 
staver fds med shift. Program- 
met modtager naturligvis 
danske ordrer som GA NORD. 
TAG SPAND etc. 

Sarg for, at det ikke ndr at 


blive nat, da du ikke kan se i 
market. Ordren CHECK fortcel- 
ler dig, hvilke ting du bcerer 
pd. Er du helt lost, skriver du 
SB. Sd fdr du at vide, hvor du 
befinder dig. 

En af de smarte ordrer, som ik¬ 
ke normalt eksisterer i adven¬ 
tures er, at du kan sparge 
HVADER KLOKKEN. 

Toiben Tang 


f 




to ’ TESTAMENTET nr. 7 

20 ’ TT aoftwar* 1983 

30 ’ 

AO INK 2. 12.3< INK 3.3. 12:M0DE 1 

30 GOTO 600 

60’ FANFARE 

70 RESTORE 90:ENT 5.2.*10.1.3.A.1 

30 FOR 0-1 TO 8:READ T<Q>:NEXT 

90 DATA 831.368.716.368.738.568.638.368 

100 FOR Q-l TO 3«F0R W«1 TO 8 

110 READ T:SOUND 17.T/A.12.13.3.3 

120 SOUND 10.T(M)/2.12.IStNEXT U.0 

130 33L*D 17.426/A.A8.13.1.1:S0UND 10.426.36.13.1.1:RETURN 

140 DA’ P 426.379.333.426.379.338,31S.'71 

.30 DA“A 353.319.284.338.319.284.268.319 

160 DATA 284.338.319.379.338.A26.379.431 

170 DATA 426. 426.426.426,426.426.A26.426 

130’ MIDMIGHT -Baatnovan) 

190 RESTORE 280 
200 READ TONEA.TONES 
210 IF TONEA-O THEN 230 
220 SOUND 10.TONEA.33.13 
230 SOUND 17.TONEB/2.33.IS 
?A0 GOTO 200 
23'' SOUND 17.268.200. 13 
260 SOUND 10,169.200.13 
270 RETURN 

230 DATA 676.268.431.268.268.268.431.268 
290 DATA 902.301.602.301.338.301.602.301 
300 DATA 676.223.451.225.268.223.451.225 
310 DATA 902.223.602.225.338.253.602.233 
320 DATA 676.269.451.268.268.223.451.223 
330 OATA 306.169.338.169.201.130.338.130 
340 DATA 902.223.602.223.338.223.602.223 
330 DATA 902.223.602.223.338.213.602.213 
360 DATA 306.201.338.201.201.201.338.201 
370 DATA 902.301.602.301.358.268.602.233 
?8v DATA 676.223.431.225.268.223.431.223 
390 DATA 804.319.336. 319.319. 319. 336. 3*3 
400 DATA 602.233.402.233.233.233.402.233 
410 DATA 902.268.602.301.338.338.602.358 
420 DATA 602.301.431.301.253.301.451.301 
430 DATA 0.0 

440 ’ INTRO (Gaaolin) 

430 RESTORE 310 
460 READ TONEA.TONEB 

470 IF TONEA-O THEN RESTORE 310:G0T0 460 
480 SOUND 17.TONEA/1.6.23. 13 
490 SOUND 10.TONEB/23.13 
300 IF 1NKEYA-•“ THEN 460 


310 DATA 190.1136.190.738.190.568.190.478.190.368.190,478.239.368.284.738 

320 DATA 179. 831.179.368. 179.426. 179.358. 179.426. 179. 338. 179.426. 179.368 

330 DATA 213.1276.213.831.213.638.213.306.213.638.213.306.233.638.319,831 

340 DATA 190.936.190.638.190.478.190.379.190.478.190.379.190.478.190.438 

330 DATA 239.1136.239.738.239.368,239.478. 239. 568. 239. 478.253.368.284.758 

560 DATA 301.1517.301.1012.190.738.190.602.758. 738,602.602.738.738. 1012.1012 

370 DATA 190.1136.190.738. 190.368. 190. 478. 190. 368. 190. 478. 213.568. 239. 738 

380 DATA 233. 1517.253. 1012.233.738. 233.602. 233. 738. 233. 602.233. 738. 253. 1012.0.0 

390 PRINT CHR«r7):RETURN 

600 ’ START 

610 RESTORE 630 

620 FOR Q-l TO 6:READ RETA(Q):NEXT 

630 DATA *N0RD *."AST -."SYD ’."VEST -,-OP -NED • 

640 PE<1)-4:PA<l)-osB0<1)*0:PE(2)“0:PA(2)*12180^2)"9:PE(3)-13:PA(3)-3:B0<3)-41 pe 

(4)-0:PA<4)-12:BO'4)-10 

630 SYMBOL AFTER 64 

660 SYMBOL 91.126. 204. 204. 234. 204, 204. 206>SYMBOL 93. 124. 198. 206. 214. 230. 198. 124« 
SYMBOL 92.24.0.60.102.126.102.102 

670 SYMBOL 123.0.0.126.27.126.216.110:SYMBOL 123.0.0.124.206.214.230.124:SYMBOL 

96. 24.0.36. 12. 124.204. 118 

680 DIM HUSKS. 4,4>. HUS(3. 4.4) 

690 FOR ETAGE-1 TO 4 
700 FOR X-1 TO 5 
710 FOR Y-l TO 4 

720 READ MUSK X. Y.ETAGE ). H*f X, Y, ETAGE) 

730 NEXT Y. X. ETAGE 
740 DATA 7.L.7.L. 7.L.7.L 

730 DATA . ar, >tr« Mryot.,3. , an fuftii imi aana. Dar %x * r skravat no 

■•♦t o vaaaan. . 15, , *t imi* i aborator . um. , 23. , *n liii* aiavator. 0 

♦ r *r *n op-knao oa *n ntd-Knip,. 1 

760 DATA . *t f i rkantat rua. Loftat *r fyldt M*d“«Pids* Pisa*.,0. i 

♦n v.nnaidar fyldt »»d atavad* v.nraoiar..3., *t rod*t varktAyirua..1234.. *t va 
■ftry*..12 

770 DATA p *n tail afaata. Dybt n*d* si'rvandat mod brAnd*ns aid*r. 

h*m oop* **» kantan af brand*n.. 2. v*d *n drb brAnd. . 3. i *t vatktrua. Lana* va 
*t*n* *t‘rd*r ator* Kir wad fuii.it vand..124.. #n fanaaalacaila..4 


.*( i*v*. tolv.tr*tt*n.fyortan.fawt 


780 DATA *t litl* iavI oft*t rua..A.I *t sp. aakaamar..3.. *t bryaaara..134.p‘ • 
r. ini i y . nd* 11 r aPP*. .13 

i .n.. ■ 152. . .n n.v.„u. f.ldt Mlmr. G*nn«. 6.y.d4r»i, 
ak.mtaa *n tran i a* for *nd*n af *n ator araapian*. .3. . *n atOr hall. 

Hov*dd*r*n *r I’*t. . 123. i *n hyaaai.i th*»aion. .1 
300 DATA d *n ati a.dt . *t »taud*b*d..234.. *t (ill* k*p*i «* d at amukt d*k 
or*r*t ait*r.,l,p‘ hov*dtrapp*n.. 43. 7,0 

310 DATA . *t ia«m*.t dr.vho*. .4. . *t snuM*it bi bMotak. . 3. i *n aa«*l i« OPholds 
stu*..13.i *n fiot vaihoidt so.aastua..12 

320 DOTH ’,0.7.0., at mi. f.m.nt.t ry„. El ,va.t I,. op fr. ,ai 

V*t '.5. *t atort bi main ktkkan. .42 

330 DATA 7,0, ?.0.‘’.O. p' *n imi v . nd* 11 rapp*. . 456. 7, 0 

340 DATA ’.O. . *n iana korr.dor.,23. I *t iyat aovavaraia*..1.7.0.7.0 ,p hov*dtra 

D<>r ,r •" o»-«P*o o. .n nN-.n.B, . 4 

330 00.0 ’.0.’.0,7.0. , .1 a.i.r.t.1,.r..2. 7.0. 7.0. . .1 mtua.f.rv.r.l....0. 1 .1 a 
' 24 ' .0.7.0.o' .n a I lap. ,3. o' .o ...i vI pa.Itr.po*.,166 
«60 DA: A o 1 '*vft. . 2. v*d *n till* forfaidah hytt*. .2. p - an at 1 . . 23. p‘ *n liii* h 
avaat-^ Jaa Man a* *r. ator arAn am*d*y*rna I ‘ a* *od nord. . 3 

370 DATA o sav*t..34.P *n ana I aandatrand. Mod nord Ha**r hav*t. , 12 

-'*• * nyaaai.a akovat i. . 134. y*d *t nund*hua. . 1 

380 DATA . an I • i I* akov i y an i na. . 2. p 0 er, smi ano*t ba araat i.. 34. o’ *n t.iaroat 
-» un*i*at...1 .p *n ban aiatta..12 w 

390 DA.A o' an :>H* a. St randan ar fyidt wed .ndfAdta i kriaawaiina*.24,p’ an a 
Mod nord * r ddr * n dyb * f » r und. , 13 

300 DATA , an «*.« byeratunnai. Jaa kan hAr* vand d*r dryppar o* fJarna akr.a 
br * d ** u 1 dr * r, 4a fiod. Mod nord ak.ataa at vandfaid. .24 

910 DA A ^ r%av*t. • 34. d an brad I y* aandatrand. Havat litaar -od nord.. 13 

.p an am« buarasti. Dybt n*d* ak.mtaa fiodan oa vandfaidat..134 .p' dan astI. 
if f oobrad..14 
920 DI.i *!D*-30) 

930 FOR 0*1 TO 29: READ TIDKQMNEXT 

940 DA’A at. to. t ra, f . r*. fa*, aaka. ayv.otta. ni, t i. ai i ava. toi v. trattan. f jortan. faa»t 
an. aaxstan, syttan.attan,nittan.tyva 

350 DOTH .po.l,...loo.lyv«.tr.o.tyv., ,,r.o.lyy.. ...o.tyv.,S.P.o.lyv., syvo.tyy.. o 
t teoat y v*. n i oat y va 

S60 DIM TILA»T0).TINGA(30).VEGT<30).PLACf30).SPECA(30) 

970 ^CR 0-1 TO 30: READ T I».A< 0>. T1NGA r 3), VEGT (Q). PLAC< 0):NEXT 0 

980 DATA^Et m: aoa.s.ib,70.56.En v.n.t*nd*.70.8.En a(tariya*.ataaa.7.27,St ataar. 

■ i. rs. . ,6.En r i ast • c. apand. 3. 13. En cykai. pump*. 4. 13. En aaa. i t ahtar. 2. 56. "En an 
oar . naaia.0.5. "Sn ator ".nAaia. 0.1 

390 50TO Ep for. p.mm.t. 12. 1’, ’Et sto.l i.r ,. JO. 58. "El o.r.,.1. -. t.pp., 60.56. 
«4. .S6PP. ..mi, 70.56,-Ep lap, -. .1 >... 20. 23. “Et ...... t pr.v. O. 1. "Ep 

At*rat . boa. 4. 2S 

•'OO WTP En K«k.o a.3.2.£n y ona • a. kn . v. 9. 18. "Et Unit -. r*b. 1.9. "Sn 

sida.7. t.ur. ♦ anr.at tr*. oanka.9.67.E.-> yarn, aryda. 4. 39. £r> ai id,want. 1.34,En poo* 
i as- af r ar. , 3.-. tn nxf ". Pat ronar. 2. 1. “En *. p ■ atoi. 4. .9 
7C.39?-M. "fl *’ r »*stn.n*.60,3l. "En koatnar -.»kat.l2. . "Et atort ".fiyaa., 

1020 FOR 0-1 TO 30:READ SPECA<0):NEXT 

1030 DATA Dat ar at atort tunat akab.. Tar.dan Kan or.*b. .Dat ar aor. om ctaacn nan 
SKubbas fran 1 .X.X.X.X.X.X.X 

1040 DATA Dat foraat.iiar to wand. Dan ana at'r p'an at tan. Dar- anaan kraviar p' 
an brad faini fra aitanan til at andat rum. .Dar ar an au i a p' tappet..Dar ar 
an skuffa i skrivabordat..X.Dat ar at l.iia kort brav..Dat ar an trnd boa wad t, 
tian ’MArka’. 

1030 DATA Dan tkai pump*s op far dan kan s*« , a. . X. X, X. X, X, Da ar waaat ia«iia. Man 
dat ar v.st ,kka skattan 1 ,Da ar ikke noaat vard..X.X.X.X.X.X 
1060 A-l:B-3:E-2:PEN l:PAPER 0 

1070 TIDD1F-T1ME:TIMER-16:KA(l)--ovar":KA<2 >--.":lYSTI 0*10O:GC-0 1100 
1080 PRINT:PRlNT"D*t ar aftarm.ddai.“:PRINT"KIok*an ar f■ra.“t»RINT:PRINT"V*IKow 
man t.l ”::INK 3.26.2:SPEED INK 120.10:PEN 3:PRINT"TESTAMENTET":PRINT:PEN l:PRI 
NT-D.n udaandina ar kiar t.l at wodtaaa a.nfArata ordra. Tryk p - antar. '!: PRINT 
1090 GOSU8 AA0:STARTCHECK»1:GOTO 1360 
110O ’ MOVED RUT I N E 

1110 IF LYSC-0 AND »E*t OR TIMER) 21 OR TI"!ERf3) r i-.EN I AO 

1120 IF LVSC-1 Then uYSTID-LYSTID-l :IF tYSTID(-0 THEN _YSC=0:°»lNT"_y**t ar bran 
dt yd 1 * 

1130 GOTO U70 

U*0 INK 1.4:1NK O.OiBORDER 0:CLS: PRINT “Dat ar M m.yH kan .k«- *a. • : BA-h», c. B 
,c>:PwACE-AyB-3>E*2O-25:G0TO 1290 

130 Pi.ACE”A*8-5>E-20-23: IF PLACE»14 THEN PRINT" Jaa f-.dt r.*d . a*, ur m<a *y i 
at vana.Jaa e'.var «va.t.PRINT:GOTO 3010 
1160 GOTO 1290 

1170 INK :.Pc« £):lNK 0• PA<E> sB3RDER BO(E) :C.S:AA-“Jaa ar “♦HL'SAfA. B.E » 

1180 PRINT AA: PRINT 

1190 BA-hA< A.B.c):IF BA-*0” THEN 1220 

1200 AA*•": r QR C«1 TO ^EN<BA»:AA-AA*REVA:VAL<riDAf5A.0.I))»:NEX7 
12.0 print "Jaa Mar. a' *: AA: PRINT 
1220 Pi-ACE-A*B*5+E*20-25:CHC-0 

1230 FOR 0-1 TO 30: IF PlAC<0>-PLACE T-.EN 2hC«1:G0TC 1250 
240 NEXT 0 

1230 IF CHC-0 THEN 1290 
1260 PR I NT-Jaa «ar. s*:" 

1270 FOR Q-l TO 30: IF PLAC(O)-PLACE THEN AA*T J j +T j^GA* 0> * " : PRINT AA 

1280 NEXT 0 

1290 PRINT: IF STARTCHECK-0 THEN 1030 
1300 IF KUSA(A.B.E)-"p navat." THEN 1870 
1310 IF TIMER—2A AND PLACE-39 THEN 2910 


". r*b. 1.9. "Sn -, a 
.want.I.34.En pooo 
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1320 IF PLACE -66 AND KURTC-0 THEN 3440 

1330 IF (PLACE-79 OR PLACE-SO) AND FAKiRC-0 "HEN 3460 

1340 IF < PLACE-64 OR PLACE-63> AND INDC-0 THEN 3SOO 

1330 IF <PLACE*72 OR PLACE-71) AND KJNDC-0 "HEN 3330 

1360 INPUT S*:S»-UPPER*(S*> 

1370 IP-INSTRCS*. “€" ) S IF IP>0 THEN S*"'.cFT*<s* t IP-i )♦■"*" *RI GHT* <S*. LEN(S*)-IP) :G 
OTO 1370 

13S0 IP-INSTRCS*.*A"):!F IP>0 THEN S*=LEFT*C S*. I P -1 ) ♦"4"+RIGKT* (S*. LENCS*)-IP) sG 
OTO 1380 

1390 IP-INSTRCS*.“0“)«IF IP>0 THEN S«-LEFT*rS*.IP-1>♦"'"eRIGHT*CS*.LENCS*)-IP):G 
OTO 1390 

1400 NINJ-ROUND < (TIME-T1DDIF)/1800) 

1410 TIHERF-TIMER:I? HINU159 THEN TIDDIF-TIDDIF*108000iTIMER-TIMER-H :GOTC 1400 
1420 IF TIMER)24 THEN TIMER-1:HX-0 

1430 IF TIMER-24 AND HX-0 T)£N PRINT:PRINT"Det er m. dnat."«FOR 0-1 TO 999:NEXT:P 
RINTSPRINT"Jea barer mus.k fra f4rste sa i :=>RINT:GOSUB 180XMX-1:QOTO 1360 
1440 IF S*="HVAD ER KLOKKEN" THEN 2010 

1450 IF LEFT*(S*.2)-"G' OR INSTR<S*."ScJL">)0 THEN 1770 

1460 IF LEFT*CS*. 3)«"TAG" OR INSTRCS*."FLYT")>0 CR INSTR < S*."SKUB")>0 THEN 2220 
1470 IF S*-"CHECK" THEN 2170 

1480 IF INSTRCS*."SMID"))0 OR INSTR( S*. "DRO*»" ) >0 OR INSTRCS*. "GIV")>0 THEN 2330 

1490 IF INSTRCS*."KNUS"))0 OR INSTRcS*.**DEu»G")>0 THEN 2380 

1500 IF S*-*SE“ THEN 1100 

1510 IF INSTRCS*."S0V")>0 THEN 2980 

1520 IF LEFT*CS*.3)-"SE * OR INSTRCS*."UNDERSaG")>0 THEN 2730 
1530 IF INSTRCS*."•8EN")>0 OR INSTRCS*.“ BN">>O THEN 2430 
1540 IF INSTRCS*."PUMP")>0 THEN 3250 

1550 IF INSTRCS*. "LUK ">>0 AND INSTRcS*." UD**>>0 THEN 3300 

1560 IF INSTRCS*."F«LD")>0 OR INSTRCS*."RYD “)>0 THEN 3070 

1370 IF INSTRCS*.“T*ND")>0 OR INSTRCS*."SLUK")>0 THEN 3190 

1580 IF INSTRCS*."TRYK")>0 THEN 2640 

1590 IF INSTRCS*."KRAVL“)>0 THEN 2790 

1600 IF INSTRCS*."L«S ">>0 THEN 1660 

1610 IF INSTRCS*."GRAV"))0 THEN 3120 

1620 IF LEFT*CS*.4)«*SKYD" THEN 3340 

1630 IF INSTRCS*. *IDI0T-»O OR INSTRCS*. "„ORT-))0 THEN PRINT"Dat Kan du «tlv var 
♦.*:GOTO 1360 

1640 PRINT“Dat font * r j*a ■kk«. “ 

1630 GOTO 1360 
1660 ’ 

l£70 IF PLACE-7 AND INSTRCS*."BREV">*0 THEN 1740 

1680 IF INSTRCS*.“BREV">»0 THEN PRINT’Det ar Ikka nidvtna at.“iGOTO 1360 
1690 PR I NT"Dar str:":PRINT 
1700 PR I NT *' Ka r e arvina. “ 

1710 PRINT"Jaa Kar nedaravet skattan e' an 4 at styxka uda « havat. 

For at n' ti i havat sxai du a' ud af nusat. aennaa havan oa .unaia 
n. forb. vadastadat oa ovar at bjara." 

1720 PR I NT "God nat.' SPRINT 
1730 GOTO 1360 
1740 PRINT: INK 2. 6 :PEN 2 

1750 PRINT“Vajlednina i at saj la i auamib - d. "• “F4rat pumpcs b'den op. s' sxaffer 
war. ansoand til at fjarna vand mad. hv.s dar skuiia vara hui i bunder.. oa t ■ I 

• idst finder Mart noaat at ro «ad." 

1760 PRINT: PEN UGOTO 1360 

1770 ’ 

1780 Al-A:Bl-B:El»EiE»E-<INSTRCS*."0P")>0 AND INSTRCB*."3"))0)fCINSTRCS*."NED")) 
O AND INSTRCB*."6">>0> 

1790 A-A+CINSTRCS*. "VEST">>0 AND INSTR<B*.“4")>0)-CINSTRCS*."4ST")>0 AND INSTRCB 

♦ »“2")>0)sB»B^CINSTRCS*. "NORD")>0 AND INSTRCB*.* 1“)>0)-CINSTRCS*."SYD"))0 AND IN 
STRcb*.“3">>0) 

1800 IF CAOA1 AND BOBU OR CAOOl AND EC)E1> OR CBOB1 AND EOE1) THEN A-AHB- 

B1 iE-El SPRINT" Jaa tcart Nun a .an ratn.na ad aanaan 1 - : 00 TO 1360 

1810 IF A-Al AND 8-B1 AND E-El THEN PRINT"Jaa Kan .kka a dan vaj."iGOTO 1360 

1820 IF B-0 THEN A-lIB-4IE-4 

1830 IF B-3 THEN A-i:B-i:E-2 

1840 IF E-l AND A-3 AND B-l THEN 1920 

1850 IF E-4 AND A-4 AND Bl-2 AND B-l THEN PRINT"Jaa skuiia aidr.a hava saat dat. 

"IFOR W-l TO 2000SNEXT:PRINT"Hj ****»»»*in. ...“:FOR W-l TO 2000:NEXT:GOTO 3010 
1860 GOTO 1100 

1870 IF PLACC17)}0 THEN PRINT"Jaa nar .naan b'd at sajia i. Jaa Kan ikKa sv*mm 
a aara... Jaa druKnar *":GOTO 3010 

1880 IF LUFTC-0 THEN PRINT"Dar ar .naan luft l auiMib'dan. hmo... jaa 

•rnxar '“iGOTO 3010 

1890 IF PLACC5)>0 THEN PRINT“Dar ar at i.iia nui • b'dan. Jaa aanaiaran anand ti 
i at fjarna vandat.":FOR W-l TO 2000:NEXT:PRINT“B'dan arnkar...":GOTO 3010 
1900 IF PLACC21))0 THEN PRINT”Jaa bar ikka noaat at ro aad."«GOTO 1360 
1910 GOTO 1310 

1920 CL 8 UNK 3. 6 . 4: SPEED INK 40.4 
1930 PEN 3SPRINT-HJHLP."SPRINT 

1940 PR I NT “Da ran ar saakxat . baa M.a. .."."Jaa ar fanaat.":FOR 0-1 TO 4000:NEXT 
1950 PRINT:PRINT"Loftat baarndar at sanka sta. Jaa b<tvar Mast..." 

1960 FOR 0-1 TO 3000:NEXT 

1970 PRINT:PRINT"Aaaaaaar r r raaa. .. " 

1980 FOR 0-10 TO 2000 STEP 10 
1990 SOUND 17,0. 2. 15:SOUND 10.999.2.15 
2000 NEXT Q:PRINTiGOTO 3010 
2010 ’ 

2020 IF TIMER)0 THEN A*-"nat" 

2030 IF TIMER)4 THEN A*»"aoraan" 

2040 IF TIMER )8 THEN A*="fora.ddaa" 

2050 IF TIMER-12 THEN A«-"a.ddaa" 

2060 IF TIMER)12 THEN A*-"aftara.ddaa" 

2070 IF TIMER)18 THEN A*-"aftan" 

2080 IF TIMER-24 THEN A*-"a.dnat" 

2090 PRINT:PRINT"Dat ar "♦A**"." 

2100 T-TIMERHF T>12 THEN T-T-12 

2110 M-MINUIK—1iIF H>-30 THEN M-60-M:K-2«T»T*l:IF T-13 THEN T-l 
2120 IF H-30 THEN PRINT"Klokkan ar ba.v "*TID*CT)*". ":PRINT:GOTO 1360 
2130 IF M-0 THEN PRINT"Kiokkan ar "aTID*CT)♦".": 3 R:nT:GOTO 1360 
2140 IF M-l THEN M*«“ a.nut " ELSE M*«" m.nutter " 

2150 PRINT"Klokkan ar "♦TID*CM)*M**K*CK)♦" "*TID*cT):PRINT 
2160 GOTO 1360 
2170 * 

2180 TAGANTAL-O:PRINT:FOR 0-1 TO 30 

2190 IF PLACCOWO THEN PRINT TIL*(Q)+TING*(Q) :TAGANTAL»1 
2200 NEXT:IF TAGANTAL-0 THEN PRINT"Jaa barer ikka p' noaat." 

2210 PR I NT:GOTO 1360 
2220 ’ 

2230 FOR Q«1 TO 30:IF INSTRCS*. UPPER*CTING*CO)))>0 THEN 2260 
2240 NEXT Q:PR!NT"D*t Kan .ea .kka.“:GOTO 1360 
^250 IF PLAC C Q)*0 THEN PRI NT“Dat bar iaa a IIarada. "iGOTO 1360 
.-260 IF PLACCO) C> PLACE THEN PR I NT "Dat hjaiaar .kka noaat.":GOTO 1360 
2270 IF Q-3 THEN PRINT"oooohbb....":FOR 0-1 TO 1999:NEXT:PRINT"En dat af aitarat 
av.naar tii s.da. En saal trappa f4rar nad . drbat.":H*CA.B.E)-“16"IB*-"16" 

GOSUB 60: GOTO 1360 . 

2280 IF Q-12 THEN'PRINT"Aba...dar ar an laa i auI vat."iGOTO 1360 

2290 IF VEGTCO)-60 AND INSTRCS*. "TAG"))0 THEN PRINT"Jaa kan .kka bar# s' tunaa t 

.nt. "iGOTO 1360 

2300 IF VEGTCQ))60 THEN PRINT"Jaa kan aiat ikka rokka s' stora tins.":QOTO 1360 
2310 IF INSTRCS*. "TAG") >0 THEN PLACCO) -0: LAST-LASTe-VEGT CQ):IF LAST) 32 THEN PLACC 
0 )-PLACE*LAST-lAST-VEOTCQ)iPRINT"J aa kan ikka bara aara,"(GOTO 1360 
2320 PRINT-ok."iGOTO 1360 
2330 1 

2340 r QP Q= 1 VO 30 

2350 INS^RC S*. UPPER* c TI NO* ■ ) >> 0 AND PLACC0)-0 THEN 2370 
2360 v <7 Qi-RINT-Dat tar .ee kka. “:GOro 1360 

2370 If PLACE-64 AND 0*24 THEN PlAC f Q'-1:PRINT"Da .ndfadta takkar for aaven.oa t 
rakka? s-a t.ibaaa t.i daras iar,dsby. ": 1NDC-1:GOSUB 60:HUS*CA. B.E>-"p' ar. . . . a 
a. "SCO 0 2420 

2380 iF PLACE-79 0-23 "HTN >LACCU)-1: PRIN T "Fak i ran semmer mar,ter, , at i . i la 
skriiY, -a 9 i ver » , •» audarna* basxyttaisa • “ :FAkIRC-1:8GSJB 60IGOTO 2420 
2390 IF •LACE—66 AND 0-22 THEN *LACf0)-1:PRINT"Kurt a.var a.a snadan oa a r a i ad 
n»d adst randan aeo sryder.. * SKURTC-l: PL AC < 20 >-0: GOSUB 60 IGOTO 2420 
2400 PLAC c0)-PLACE:IF PLACE-62 CR PLACE-65 THEN PlACcO)-1 
2410 IF PLACi4)»0 THEN LYSC-0 % 

2420 LAST-LAST-VEGTCQ):PRINT"ok. "IGOTO 1360 
2430 * 

2440 IF INSTRCS*.“L'GE">-0 THEN 2480 

2450 IF PLACE—76 AND PLAC<9>-0 then B*-"13":PRINT“L'aan ar ban, <aa xan a' nord 
nu. ■:GOSUB 60:PRINT:H*CA.B.E)■“13":GOTO 1360 
2460 IF PLACE-76 Th£n PRINT"Jaa bar ikka dan riat.aa naaia. ":GOTO 1360 
2470 PRINT“J»a kar. da .kka sa noaan l * aar har.":GOTO 1360 

2480 IF INSTRcS*." LEM"))0 AND HULC-1 THEN PRINT"Dan ar „© 'ban.":GOTO 1360 
2490 IF INSTRCS*." LEM")>0 THEN PRINT"Lamaan ar ban. Dar ar at hui . auivat. Ja 
a kan sa at svaat irs nadafra 1 *:HUS*CA. B. E)*“. at studaravaraisa. En iam . 9 

uI vat st'r 'ban.“:GOSUB 60: KiLC-1:GOTO 1360 


2500 IF PLACE-8 THEN B*-* 13": TIL*C2)-"En ban vi n" 1 H*C A. B. E)-"13" 1 PRINT"T*r.dan a 
r toa. jaa kan sa ind . at aarktrua iaod nord. “iGOTO 1360 

2510 IF PLACE-26 AND INSTRCS*."D4R"))0 THEN PRINT"D4ran bindar, jaa kan .kka bn 
a dan '"iGOTO 1360 

2520 IF PLACE-31 AND INSTRCS*."D4R"))0 THEN 2560 

2530 IF SKUFC-0 AND PLACE-54 AND INSTRCS*."SKUFFE"))0 THEN PLACC25)-34:PLACC15>- 
54:PRINT-Dar i.saer noaia t.na . akuffan.“iSKUFC«1iGOTO 1360 

2540 IF PLACE-56 AND INSTRCS*. “SKAB"))0 THEN PRINT"Skabat ar toat ."1 PRINT"Jaa ka 
r. sa ar. aar.* aod ast.":GOSUB 60:H«CA. B.£)■" 12" :B*«* 12" :QOTO 1360 
2550 PRINT"Dat ar umu•.at. ":GOTO 1360 

2560 IF ®k.ACC3)>0 THEN PRINT"D4ran ar I'st. jaa kan ikka ‘ bna dan. "iGOTO 1360 
2570 GOTO 3570 
2580 • 

2390 IF INSTRCS*." D*R")>0 THEN PRINT"Hvi 1 kan d4r aanar du ?":COTO 1360 
2600 IF 3 LACE-26 AND INSTRCS*."HAVED4R")>0 THEN 2620 

2610 PRINT"Hvor ar du doa dastrukt•v.":PRINT"Dat a' man da ikka !"iGOTO 1360 
2620 IF PLACC10)-0 THEN PRlNT“Daran ar smadrat. Vajan ar fri •":H*CA, B. E)*"13":B 
*-*13":GOSUB 60iGOTO 1360 

2630 PRINT"Jaa sxai bruaa an stor hammer.GOTO 1360 
2640 ‘ 

2650 IF P_ACE<>57 A*JD PLACE 0 17 THEN PR I NT "Dat ar .kka an a 1 avator. " :OOTO 1360 
2660 IF ®LACE-57 AND INSTRCS*. “0P"))0 THEN PRINT"Jaa kan ikka koaaa lanaara op. " 
: GOTO 1360 

2670 IF Pi.ACE-17 AND INSTRcS*. "NED"))0 THEN PRINT"Jaa kan .Kka koaaa lanaara nad 
- 

2680 IF PLACE-57 AND INSTRCS*."NED"))0 THEN E-liOOTO 2710 
2690 IF PLACE-17 AND INSTRCS*. "OP"))0 THEN E-3IG0T0 2710 
2700 PRINT"Du kan trykka dia salv o' naaan '"lOOTO 1360 
2710 FOR 0-2000 TO 100 STEP -8 

2720 SOUND 17.0,1.13:S0UND 10.3000-0.1.15:NEXT QiOOTO 1100 
2730 ’ 

2740 FOR 0-1 TO 30:IF INSTRCS*.UPPER*CTING*CQ))))0 THEN 2760 
2750 NEXT Q:PRINT"Dar ar ikka noaat abaci ait at sa."iGOTO 1360 
2760 IF PLACCO) C) PLACE THEN 2750 

2770 IF SPEC*c0) —"X" THEN SPEC*CQ)-"Dar ar ikka noaat apacialt at aa.■ 

2780 PRINT 8PEC*C0):00T0 1360 
2790 ’ 

2800 IF PLACE-54 AND HULC-1 AND INSTRCS*." NED")>0 THEN 2890 

2810 IF PLACE-55 THEN A-4iPRINT"Man akai aau f.nda aia t aaaat !"»FOR W-l TO 200 
OiNEXTiQOTO 1100 

2820 IF PLACE-54 THEN A- 51 OOTO 1100 
2830 IF PLACE-34 THEN E-3:00T0 1100 

2840 IF PLACE-9 AND CPLACC19)-9 OR PLACC19)-0) THEN B-lIGOSUB 60lOOTO 1100 
2850 IF PLACE-4 AND INSTRCS*.“NED")>0 THEN PRINT"Jaa ar faidat nad . vandat. Dar 
ar ikka Piada til at av*aaa rat aaaat.IFOR 0-1 TO 20O0tNEXTiPRINT"H j mmmm 1 o.. 
.jaa druknar."lOOTO 3010 
2860 IF PLACE-4 THEN B-2I00T0 1100 
2870 PRINT"Jaa naatar at kravia bar." 

2880 GOTO 1360 

2890 IF PLACC14)C)0 THEN PRINT"Jaa t4r ikka kravia nad udan atiaa."iGOTO I3b0 
2900 E-2:GOSUB 60iGOTO 1100 
2910 • 

2920 IF PLACC9) <> 1 THEN 1360 

2930 PRINT"En kuttakiadt t'aat akikkaiaa. aad am' lyaandt 4jna. a.ddar vad flya 
1 at. " 1 PRINT 

2940 PRINT“Mad an saa akurranda ataaaa bvlakar dani",”Hvad ar dat dar fyidar aal 
v atora sa 1 a. krybar aaliaa traarna . akovan oa aayaaraia aannaa da a.ndata aara 
kker PRINT I INPUT S*iPRINT 
2950 IF S*="MARKE" THEN 2970 

2960 PRINT"D 1 t avar ar forxart !"lPRINT:PRINT“Skikkalaan forav.ndar canaaoat. au 
sikkanb«rar op. ait ar at•lla."iGOTO 1360 

2970 PRINT"D.t ivar ar r.at.at. Jaa vil akanka dia an n4aia til dan ar4nna naval 
'ae. *:PLAC c9)-0: PRINT:PRINT"Sk.kkaiaan foravindar lanaaoat. aua.kkanb4rar op. ai 
t er st«I•a."iGOTO 1360 
2980 * 

2990 IF TIMER)8 AND TIMERC24 THEN TIMER-241PRINT"Ok. Jaa aovar nu.“:BORDER OlFOR 
W-I TO 4000:NEXT:BORDER BOCE):PRINT"Jaa kan h4ra noaat ..."1 PRINT:OOTO 1430 
3000 TIMER-8:PRINT"Ok. Jaa aovar np.":BORDER OlFOR U-l TO 4000:NEXT:GOTO 1100 

3010 * 

3020 BORDER 0:PRINT 

3030 PRINT"D.n udaandina ar d4d." 

3040 PRINT"ViI du pr4va an aana til ?" 

3050 INPUT J*:IF J* C>"NEJ" THEN RUN 
3060 END 
3070 • 

3080.IF PLACC18))0 THEN PRINT"Jaa bar ikka noaat at faida aad."iGOTO 1360 
3090 IF PLACE C) 73 THEN PRINT"Dat bar .naan men. na bar. "IGOTO .1360 
3100 PRINT"Jaa akai a4ra ait badata...":PRINT:FOR W-l TO 2000:NEXT 1 PRINT"St.an a 
r ryddat. jaa kan a' srd."iGOSUB 60 

3110 B*-"13":H*CA.B.E)-*13"iHUS*CA.B.E)-"o' an nyki.PPat j una 1 aat.."iGOTO 1360 
3120 ’ 

3130 IF PLACC20))0 THEN PRINT"Jaa bar .naan anade."iGOTO 1360 
3140 IF PLACE 063 THEN 3180 

3150 PRINT:PRINT-Snadan at4dta p 0 noaat '"IFOR W-l TO 2000INEXT 
3160 PRINTiPEN 3:PRINT"Jaa bar fundat akattan •'*"IPEN 1:PRINT"Har i.aaar an err 
a«.de af Piat.n. an kuala af auid oa an funkiande a .amantPLACC28)-0 
3170 GOSUB 60:GOTO 1290 

3180 PRINT:PRINT"Jaa a.dar ikka arava bar."lOOTO 1360 
3190 * 

3200 IF PLACC 4)00 THEN PRINT" Jaa aanaiar at ataar.niys * "iGOTO 1360 
3210 IF INSTRCS*."TaND")>0 THEN 3230 

3220 LYSC-OiPRINT"Jaa bar lya til"ILYSTIDl"akr.dt."iGOTO 1360 
3230 IF PLACC7)C>0 THEN PRINT"Jaa bar .naan I Iahtar.-iGOTO 1360 
3240 LYSC-l:PRINT’Jaa bar lya til"ILYSTIDl"akr.dt.*:FOR W-l TO 20001NEXTiGOTO 11 
00* 

3250 ’ 

3260 IF LUFTC-1 THEN PRINT“Dan ar jo eu-eet oe."iGOTO 1360 
3270 If PLACC6)C)0 THEN PRINT"Jea bar .naan pump#. "iGOTO 1360 
3280 IF PLACC17)C)0 THEN PRINT’Jaa bar ikka noaat dar skai eunees '"iGOTO 1360 
3290 LUFTC-1 1 FOR 0-1 TO 5iPRINT" pump#. ."I:FOR W-l TO BOOiNEXT U.0:PRINT:PRINT"S' 
ar dan k 1 arat.‘iGOTO 1360 
3300 ’ 

3310 IF LUFTC-0 THEN PRINT“Dar ar jo ikka noaat luYt 4 !"lOOTO 1360 
3320 IF PLACC17)<)0 THEN PRINT"Jaa bar ikka b'dan aad a.a -ere.-:GOTO 1360 
3330 PRINT"ppppfffffffffffffi|nilttttt."iLUFTC-0 1 GOTO 1360 
3340 • 

3350 IF PLACC26)C)0 THEN PRINT"Jaa bar inaan Pistol.‘iGOTO 1360 

3360 IF PLACC25)C)0 THEN PRINT"Jaa bar .naan patronar."«GOTO 1360 

3370 IF INSTRCS*."KURT"))0 OR INSTRCS*. "FAKIR"))0 THEN PR INT"Dat kan man da .kka 

. Dat ar jo aord '"iGOTO 1360 

3380 IF INSTRCS*.“INDF4DTE"))0 THEN PRINT"Dar ar alt for aanaa af dam.":GOTO 136 
O 

3390 ENT 4, 10.80.1.20.40.2 
3400 ENV 4.5.3. 1. 1.0. 15. IS.-1.2 
3410 SOUND 1.500.50,0.4.4.4 

3420 IF INSTRCS*."HUND")>0 THEN PRINT"Jaa fik dan. Vaatbundan ar d*d.“iHUNDC-l 
3430 GOTO 1360 
3440 ’ 

3450 PRINT"Strandsamiaran Kurt at‘r udanfor hyttan.Han vil aiva a.a an spade for 
en sryde.":PRINTiGOTO 1360 
3460 ’ 

3470 IF PLACE-79 THEN PRINT"En fax, r passer at vadested ovar fiodan.Han k raver 1 
suidaant for at lade a.a koaaa ovar f 1 odan.":PRINTiGOTO 1360 
3480 PRINT"Fak 1 ran i*fter araana op ovar bovadat oaskr.aer .mod bialen. Straks b 
•t/r.der vandat at st.se • f loden. " 

3490 FOR W-l TO 4000:NEXTiPRINT:PRINT"Vandat n*r aia t.l xnaene..."IFOR W-l TO 4 
OOO:NEXT:PRINT"Jea blivar ravat aad af straamen. ":GOTO 3010 
3500 * 

3510 IF PLACE-64 THEN PRINT“De .ndf4dta kr.aara bar oarinaet aia. Da vil ikka 
1 ada *.a easser*."iPRINTiGOTO 1360 

3520 PRINT"De fanaar a.a. Jea bi.var bundet..."IFOR W-l TO 2000:N£XT:PRINT"De pu 
tter a.a nad . an ator aryda. Jaa tror de vil sp.aa -,a.":FOR W-l TO 2000:n 

EXTiGOTO 3010 
3530 * 

3540 IF PLACE-71 THEN PRINT"Mod aat ar der an stor bidsk vaathund. Jaa t4r nast 
an .kka a’ den vej '"iPRINTiGOTO 1360 

3550 PRINT 1 PRINT"Hjaaaa 1 p...":FOR W-l TO 2000INEXT:PRINT"Hundan ader aia..." 

3560 GOTO 3010 
3570 * 

3580 IF PLACC28)C>0 THEN PRlNT"Der ar .naan arund t.l at a' ud af busatf4r jea h 
ar fundet sxatten.“:GOTO 1360 

3590 BORDER 0: INK 0,3:PAPER 01 INK 1.26. 13:PEN i:MODE 1 
3600 PRINT"TILLYKKE. du bar laat tastamantat. “ 

3610 PRINT:END 
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I Val d'lsere er du en slalom- 
mester. Spilles styles ved 
hjcelg af cursor tasterne: 5 og 
8 styrer skiloberen mod hoj- 
re/venstre, og larten. 

Pd vejen ned skal du igen- 
nem 10 eller 20 porte aihcen- 
gigt at, hvilken bane du vcel- 
ger. Maximum tarten er 120 
km/t, men dukker der et isskilt 
op, skal tarten saettes ned til 80 
km/t. 


Skriv forst programmet UDG 
EDITOR ind og RUN det. NEW 
dette program og skriv ho- 
vedprogrammet ind. Skriv sa 
GO SUB 8120. Nu kan pro¬ 
grammet saves med SAVE 
"SKIL0B" LINE 1: SAVE "co¬ 
de" CODE sa, 168. 
Computeren kan cleares, og 
programmet loades ind. 

Kent Gleiup Mikkelsen 


1 LET Y$a" “: GO SUB 8100 

NEXT N: LOAD "“CODE r BRIGHT 1: 
PAPER 7: GO TO 8510 

2 CLS LET s-5 LET p-22: LE 
T sp>100: LET f-0 LET q»=0 LET 

n r =0 

3 LET »r-l: LETT •-2: LET » -0 

4 LET 7 . LET n -IB LET «i n = 

0- LETT seli-0: LET t i *0 

6 POKE 23659,1: BRIGHT 0 PRI 
NT RT 22,0,PO/5;" ,00.00.00",RT 
■ 22,5-LEN STR* HHIN;HHIN,AT 22,8- 
LEN STR* HSFK;HSEK,RT 22,11-LEN 
8TR$ TNT HTT;INT HTI? POKE 23659 

. * 10 BORDER 7: PRPER 7: BRIGHT 1 

80 IE n <21 RND l>« 0 THEN PRINT 
RT n *1, c-1, Y*. RT n.c-LYt 
90 IP N <21 RND c <27 THEN PRINT 
RT n +1, c+4; Y4; RT n,c+4,Y4 
- 100 LET r-rr+1: LET fv-l^lNT (RN 

0*2): LET c-INT (2+RND+21): FOR 
n —21 TO 2 STEP -1 

101 IF ti>-10 THEN LET sek-sekf 
1: LET ti-0 

102 IF sell >-60 THEN LET ■ i n -» i n 
. +1: LET sek>0 

103 IF R-PO+1 RND N-21 THEN GO 
SUB 6000 

106 IF R < —PO THEN GO SUB 604.0 
106 IF R>PO+l THEN GO SUB 6020 
116 GO SUB 1030 

115 PRINT RT 0,0,"SPEED ",RT 0. 
9-LEN STR* SP, sp: IF sp<100 THEN 
PRINT RT 0,6; ** ** 

120 IF sp > x10 THEN GO TO 6030 

121 IF p<6 RND sp>60 THEN GO TO 
6000 

130 IF INKEY* —"5" THEN LET s*«© 
: LET f-0 

134. IF INKEY> — '*6" THEN LET k r -n 
r *2: LET sp-sp-5: LETT ■-■>.13 

136 IF TNReY * —"7" THEN LET m r -n 
r-2: LET sp —sp *5 : LET ■-■-.13 

137 LET tl -ti +» 

136 IF ■r <1 THEN i ET »r«l 
139 PRUSE mr 

14.0 IF INKEY*«"B" THEN LET s»*l 
: LET f«l 

14.1 IF S<1 RND S>-1 RND P<2r: TH 

EN PRINT RT P,S;“ " : LET P-22 

14.2 IF p —21 THEN LET s-INT ( 1+R 
NO*26) 

14.4. IF P <22 THEN LET P-P-l: PR I 
NT RT P + 1, 6-1; ** IF P < 1 THE 

N LET P-22 

145 IF p <22 THEN PRINT RT p , S ; " 

146 IF (X-S OR X-l-S OR X+l-S) 
RND (Z-P OR Z-l-P) THEN GO TO 60 
30 

147 IF r-PO RND N-10 THEN GO SU 
B 9050 

146 IF r —PO*2 RND N-2 THEN GO T 
O 7000 

150 IF f-0 THEN PRINT RT z,x,“P 
"; RT z , x + 1, " " , RT z -1, x ; " OR r *; RT 
z-2,x, A HNO f ; RT z-3,x/‘KL" 

165 IF f«1 THEN PRINT RT z,X+l; 
"C "; RT z , X ; ” ".RT z - 1 , x , "RB r * , RT 
z-2,x-l, a DEF";hT z -3 , x ; r *GH " 

160 IF THEN LET c-c+1 LET 

S —S +1: IF s > 30 RND p<22 THEN PR 
INT RT p,s-l," LET p-22 

165 IF q*-l THEN LET c-c-l: LET 
S-S-l IF s<0 RND p<22 THEN PRI 
NT RT P , S +3, " 

170 IF INT (RND*11)-5 RND p-22 
THEN LET p-21 

160 IF (z-n OR z+l*n OR z-l»n) 
RND (x < c OR x > C *4) THEN GO TO 60 
70 

190 NEXT n 
1000 GO TO 20 

1030 IF n <21 RND c. > -O THEN PRINT 
RT n>l,c-l,Y$,flT n,c-l,Y* 

1031 IF N <21 RND C <27 THEN PR INT 
RT nfl,c+4;Yt, AT n,Cf4;Y$ 

1033 INK FV IF C)0 RND C<-3R TH 
EN PRINT RT n,c;"U": IF N>-1 THE 
N PRINT RT n - 1,C; "T5" 

1034 IF c<26 RND G > =-4 THEN PRIN 
T RT n,c+5;"U" IF N>=1 THEN PRI 
NT RT n-l,c+5,"T S’ 

1035 INK 0 

1037 IF INKEY * —"8" THEN LET F»1 
LET OU-1 

1038 IF INKEY*—"S" THEN LET F-0 
LET OU-0 

104O RETURN 

6000 CLS PRINT FL R5H 1, AT 0,1-3 
,"STYRT": PRINT RT 3,1,"DU KORTE 
FOR HURTIGT PRR ISEN" GO TO 60 
60 

6010 CLS PRINT FlOSH 1,RT 0,13 
, *STYRT": PRINT RT 3,3,"DU K0RTE 
FOR HURTIGT"- GO TO 6060 
6030 CLS PRINT FLRSH 1,RT 0,13 
, "STYRT" PRINT RT 3,3, "DU PRHTE 
ET 5KILT": GO TO 60S© 

6050 CLS PRINT FLASH 1,RT 0,8. 

" D TSKVAL IF TCERET'' PRINT RT 3,3; 
"UDE RF BANEN" GO TO 6060 



VAL DISERE 


S070 CLS • PRINT FLRSH 1,RT 0,6, 
"DISKVALIFICERET": PRINT RT 3,3; 
"DU MISTEDE EN PORT" 

6080 FOR N —0 TO 20: BEEP .005,15 
: BEEP .005,10: NEXT N ROUSE 20 
0- GO TO 7720 

7000 LET K-0 LET Y-75: LET T«IN 
T (RND *3) 

7005 FOR N —0 TO 104 STEP 8 

7006 IF K — 1 THEN FOP N-112 TO 12 
6 STEP 8 

7010 IF N >3 THEN PRINT RT 22- (N/ 

6) ,Y/8, " ",RT 22-(N/6),(Y/8)>12 

7015 PRINT INK T;RT 21-<N/6),Y/8 
;"U ",RT 20-(N/S),Y/8;"TS";AT 21 
-(N/8),(Y/8)+12,"U RT 20-(N/8) 

, (Y/8) +12; "TS" 

>020 PLOT Y+12,N DRAW 80,0 

7035 IF f-0 THEN PRINT RT z ,Xi"P 
"iAT z.x+1;" ",RT 7-l.x; "OR ’jAT 
Z-2,x, a MNO“,RT z-S.x."KL" 

7036 IF f»l THEN PRINT RT Zy*+1; 
"C"; RT z y x; " “; RT /-1, x ; "RB r *; AT 
z -2, x -1, "DEF"; RT z -3, x; f *GH" 

7055 IF N-12B THEN GO TO 7000 
7060 PLOT Y+12,N: DRAU OUER 1;80 
, 0 

7065 LET TI-TI+H: IF TI>9 THEN L 
ET SEK-5EK+1: LET TI-0: IF 5EK>6 
0 THEN LETT HIN-HIN + 1: LET 5EK —B: 
7067 POKE 23659,1: BRIGHT 0 PRI 
NT RT 22,23-LEN STR* MIN;■in,RT 
22,26-LEN STR* SEK;sefc;RT 22,2«^ 
LEN STR* INT TI,INT ti: POKE 238 
59,2: BRIGHT 1 
7070 PLOT OUER l;Y + 12 y N 
7400 LET F-INT (RND *2) 

7500 NEXT N 
7510 LET K-l 
7520 GO TO 9160 

7700 PRINT RT 21,0;"BED5TE TTD I 
DAG ";I Cl); ".I(19)(37) : 
FOR O-0 TO 12: BEEP .004,15: BEE 
P .0003,10: NEXT O 
7710 PRINT RT 19,0;"DIN TID 

", MIN, ".";6EK; u .“; INT TI: PO 
R O-0 TO 20 BEEP .01,IB: BEEP . 

0IB,20: NEXT O: PRUSE 0 
7716 PRUSE 0 

7720 CLS : PRINT RT 3,3; "1 - NYT 
SPIL",TRB 3;"2 - RE5ULTATTAULE" 

; TAB 3; "3 - AENDPE BONE", TRB 3; ** 
4 - SLETTE RLLE AE5ULTPTER";TAB 
3;"5 - SAME SKIL0B": PRUSE 0 
7730 IF INKEY*-"l" THEN GO TO 2 
7740 IF INKEY*—"2" THEN GO TO 7» 
©0 

774B IF INKEY*-"6" THEN 8AUE "»K 
IL0B" LINE 1: SPUE "code"CODE 8R 
,168 

7750 IF INKEY*-"3" THEN GO TO 85 
10 

7760 IF INKEY * —"4" THEN GO SUB 8 
100 

7770 GO TO 7720 

7790 GO TO 2 

7800 CLS : PRINT RT 1,10;“DU ER 

I MAAL";AT 5,0;"DU HRR EN RE DAG 

ENS 18 BFDSTE TIDEA" 

7810 FOR 0-0 TO 20: BEEP .005,16 
BEEP .005.10: NEXT O: PRINT RT 
17,3;“DIN TID VAR INVERSE 1; 

*00.00.00";RT 17,17-LEN STR* MIN 
INVERSE 1,MIN 

>820 PRINT RT 17,20-LEN STR* SEK 
, INVERSE 1,SEK 

7630 PRINT RT 17,23-LEN STR* INT 
TI, INVERSE 1,INT TI 
7665 PRINT RT 4,7, FLASH 1;"SKRI 
V DIT NPVN" 

7870 INPUT A* IF LEN A*>20 THEN 
GO TO 7870 
7875 GO SUB 9200 

7900 CLS : FOR N-l TO IB: PRINT 
RT N +2 > 2 —LEN STR* N, N, " **,P*(N), 


TRB c:a-, lato . .00" ; RT N+2,26-LEN 

STR* I(N),I(N),AT N +2,29-LEN STR 
* I(N+1B);I(N+18) 

7950 PRINT RT N+2,32-LEN STR* I< 
N+36);I(N+3S): NEXT N 
7990 PRINT 410, " 19B5 Kent Glerup 

Mikkelsen": PRUSE 0 GO TO 7720 
6000 POKE 23669,1: BRIGHT 0 PRI 
NT RT 22,0;" 00.00.00",RT 22,6 

-LEN STR* 1(1),1(1);AT 22,8-LEN 
5TR* 1(19) ; I (19) ;RT 22,11-LEN ST 
R* INT I(37);INT 1(37): BRIGHT 1 
: POKE 23659,2 
©010 RETURN 

8020 IF R <PO +3 THEN PRINT RT 0,2 

0 ; " " 

6025 POKE 23659,1: BRIGHT 0: PRI 
NT RT 22,23-LEN STR* ■in,«in;AT 
22,26-LEN STR* SEK;sefc;RT 22,29- 
LEN STR* TNT TI,INT ti: POKE 236 
69,2: BRIGHT 1 
6030 RETURN 

6040 PRINT RT 0,34;"00.00.00": P 
PINT RT 0,26-LEN STR* ■in,«in,AT 
0,29-LEN STR* SEK, sell, RT 0,32-L 
EN STR* INT TI, INT ti 
©050 RETURN 

©100 DIH P*(18,20): DIH 1(54): P 
OR N-l TO 18: LET P*(N)-"ZX SPEC 
TRUH "+K* NEXT N: FOR N-l TO 64 
: LET I < N) —3: NEXT N 
©110 LET HHTN-1 LET HSEK-0: LET 
HTI-0: LET C-28 

8120 LET n-23730: LET n2—PEEK n+ 
256+PEEK (n+1) 

6130 IF N2-65000<0 THEN GO TO SI 
50 

8140 LET SR—65366: LET K*-"48K ,, : 
RETURN 

6150 LET SR —32600: LET K*»"ieK": 
RETURN 

8500 PRUSE 0 GO TO 7720 
8510 CLS PRINT RT 3,3; "1 - BAN 

E 1",TAB 35,“2 - BANE 2 ,TRB 35, 
"3 « PESULTRT-TRVLE": ROUSE O 
8620 IF INKEY*-"1" THEN LET PO-B 
: GO TO 2 

6530 IF INKEY * —"2" THEN LET PO-1 
3 GO TO 2 

©540 IF INKEY * — “3" THEN GO TO 78 
80 

8550 GO TO 8520 

9050 IE HIN <MHIN THEN GO TO 0080 

9051 IF MIN > HHIN THEN GO TO 0090 

9052 IF SEK>HSEK THEN GO TO 0090 

9053 IF 5EK<HSEK THEN GO TO 9080 

9054 IF TI> HTI THEN GO TO 9090 

9055 IF TI< MTI THEN GO TO 9080 
9080 BEFP .8,0 BEEP .9,10: LET 
HHIN—HIN• LET MSEK-SEK LET HTI- 
TI 

9090 POKE 23659,1 BRIGHT 0 PRI 
NT RT 22,21."00.00.00",RT 22,23- 
LEN STR* HIN,HIN,RT 22,26-LEN ST 
A * SEK, SEK,RT 22,29-LEN STR* INT 
TI,INT TI: BEEP .005,5 POKE 23 
©59,2 

909^ BRIGHT 1 
9100 RETURN 

9150 IF MIN<I(1S» OR (MTN-IMB) 
RND SEK<I(36)) OR (SEK=I(36> RND 
TI<I(54)) THEN GO TO 7800 
9150 GO TO 7700 
9200 LET TI—INT TI 
9205 FOR N*IS TO 1 STEP -1 
9210 IF HIN <I(N) OP (MIN — T (N) RN 
D SEK<I(N+18)) OP (SEK-I(N+18) R 
rtO TI<I<N +36) ) THEN NEXT N 
9220 LET N=N + 1: FOR N=*17 TO N ST 
EP -1 

9230 LET P*(N+1)-P*(N): LET T(N+ 
I> —I(N) : LET I(N + 19) -I(N + 16) : LE 
T I(N+37)-I(N+36): NEXT N 
9240 LET N-N+l: LET P*(N)-R*t LE 
T I (N) —MIN• LET I:N + 18) -SEK LET 
I (N+36) -TI• RETURN 
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■ Programmet er beregnet til I enhver indtastning at efter- scetning at tabs, DKRS er 
lagring at medlemmers navn og tornavn indtastes dansk karakterscet, NDKRS er 
adresser og restancer. Ialt ©r blot m©d sm6 bogstav©r Ga- sv©nsk karakt©rso©t, P10$ og 
derpladstil300medlemmer der, byer etc. skal indtastes P12$er lOog 12karaktererpr 
Dereratsat 15 karakterertilef- med stort begyndelsesbog- inch. (lQog 12 pitch), MGS er 
ternavn, 12 til tornavn, 4 til stav. Lande indtastes som marginscetning og LSPS er li- 
medlemsnummer, 25 til gade max. 2 bogstaver svarende til nespacing 
etc , 20 til postnr og by samt 2 de at postvcesenet anerkend- Har du ikke tilsluttet en printer, 
til landskode. Med mindre tebilmaerker(DK=Danmark), bor du aldrig bede om ud- 
programmet kares pd Enter* Ndr en adresse er fundet etter skrift, da computeren sd i al 
prise 128, kan ovenstdende anskede betingelse er der tie- eviahedvilventeodklarsia- 
tabeller ikke udvides. re muligheder: Joysticket kan nal fra printeren. Computeren 

Hovedmenuen giver mulig- bruges til at bladre trem el- kan deretter ikke stoppes 
hed tor sagning pd ettemavn, lor tilbage med, medlemmer uden at data torsvinder! Ellers 
tornavn, postnummer (4 tarste kan slettes eller adresser kan kan du slette alle linjer der 
pladser), land, restance/ikke rettes. dog kun gade, by og indeholder "lprint" 
restance og pd medlems- land, skal der rettes et navn BEM^ERK: 
nummer. Desuden kan der md det indsaettes som nyt Der bar ALDRIG, gentager AL- 
vcelges indsoetning at nye medlem og det gamle navn DRIG, tastes STOP under save 
medlemmer (programmet slettes. Der kan desuden tastes og load at data!!!! Ligeledes 
indscetter automatisk pd rette tor markering at restance eller md bdndoptageren aldrig 
plads) samt load og save at ingen restance, eller tor at stoppes midt i disse procedu- 
data Desuden kan man vende tilbage til menu. Tastes rer. 

'bladre'' medlemmerne der N lor "nceste" sages der Der er dog tolgende mulig- 
igennem fra begyndelsen el- videre etter det ncsste med- hed for at redde dine data, 
ler man kan td en optcelling lem der optylder den oprin- hvisdu har tastet stop: TastF2. 
Som sidste mulighed i hoved- delige betingelse. Tastes der P Skriver maskinen da ' 'chan- 
menuen kan der vcelges ud- udskrives adressen til labels, nel already open" tastF3og 
skrift pd labels (format 36 x 70 Vedr udskrifter pd printer: deretter F2. Dine data vil nu 

mm) sorteret etter land (pro- De anvendte kontrolkoder blive savet, og du taster deret- 
grammet leder etter DK, S, N passer til EP 80+ printeren. Har ter FI, som starter program- 
og SF) eller en medlemsliste du en anden printer er det sik- met 

Etablering at kartoteket sker kert nod vend lgl at oendre dis- Har du tastet stop midt i proce- 
blot ved at indtaste adresser- se kontrolkoder. Dette gar du duren der henter data ind, vil 
ne som nye medlemmer. For ved at editere linjerne 190, programmet starte op igen 
at undgd for long ventetid bar 200 og 210. Her betyder vari- 0 g dine data torsvinder.□ 
adresserne indtastes i allabe- ablerne falgende: TABS er P. Stadel Nielsen 

tisk orden. 
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100 PROGRAM "kart_ep80" 

110 CLEAR SCREEN:SET £102:PALETTE 9. 
255,9,9:SET BORDER 9 
120 SET STATUS OFF 

130 PRINT AT 10,0:"* * * FORENINGSKA 
RTOTEK * * *":CHR$(241) 

140 PRINT :PRINT " P.Stadel Nielsen, 
1985":CHR$(241) 

150 STRING *10 QS.T$,DATO*,MED*,R*,T 
AB1 *.TAB2*,TAB3$,DKR*,NOKR*,P10*,P12*. 
MG0*,MG 1 *,LSP1 *,LSP2* 

160 LET 0.X, A=0 

170 IMAGE: slger <££££££££££££££££££ 
£££ 

180 SET INTERRUPT STOP OFF:SET TAPE 
SOUND OFF 

190 LET R*=CHR*<27) :LET DKR*=R$8."R"8. 
CHR*(14) :LET NDKR$=R*8."R"8.CHR*( 15) 

200 LET P10*=RS8."P":LET P12*=R*8."M“: 
LET MG0*=R*8."1 "8.CHR$(0) :LET MG1*=R*8."1 
"8.CHR*( 10) :LET LSP1*=R*8."2":LET LSP2$= 
R*8."J"8.CHR$(171> 

210 LET TAB1S=R*8."O"8.CHR*(20)8.CHR*(2 
8>&CHR*<48)6.CHR$(56)8.CHR$(76)&CHRS(0) : 
LET TAB2S=R*8."D"8.CHR*(28)8.CHRS(56)8.CHR 


*(0) :LET TAB3*=R*8."D"8.CHR$(4)8.CHRS(9>& 

CHR*(37)8.CHR$(65)SCHRS(0) 


220 UHEN EXCEPTION USE UPS 


230 

FOR N=2 TO 16 


240 

SET FKEY N "" 


250 

NEXT N 


260 

) 

SET FKEY 2 "call save"8.CHR*(13 

270 

SET FKEY 3 "close £1 "8.CHR*< 13) 

280 

STRING ES(300)*15 


290 

STRING F*(300)*12 


300 

STRING M*<300)*4 


310 

STRING GS<300>*25 


320 

STRING Y*(300>*20 


330 

STRING L*(300)*2 


340 

STRING B$(300)* 1 


350 

NUMERIC NR(1 TO 3) 


360 

CALL CHAR:CALL SUBMENU:CALL MA 

INMENU 



370 

LET E*(0),F*(0),M*(0),G*(0),Y* 

(0),L*(0>,B$<0)="" 


380 

DO 


390 

£ 

OISPLAY £10:AT 1 FROM 1 

TO 1 

400 

DISPLAY £30:AT 3 FROM 1 

TO 1 

410 

LET Q$="" 


420 

PING 


430 

CLEAR SCREEN 


440 

SET BORDER 9:SET £102:PALETT 

E 9,255 

,9,0:SET £20:PALETTE 9,9 


450 

LET T*=TAST* 


460 

IF T$="E" THEN 


470 

CALL EFTERNAVN 


480 

ELSE IF T$="F" THEN 


490 

CALL FORNAVN 


500 

ELSE IF T$="M" THEN 


510 

CALL NUMMER 


520 

ELSE IF T*="L" THEN 


530 

CALL LAND 


540 

ELSE IF T*="B" THEN 


550 

CALL BETALT 


560 

ELSE IF Tt="P" THEN 


570 

CALL POSTNR 


580 

ELSE IF T$="N" THEN 


590 

INPUT AT 20,5,PROMPT 

" i nd' 

ast antal nye:":ANT 


600 

FOR T=1 TO ANT 


SV0 

INPUT AT 20,5,PROMPT 

" l ndt 

ast antal nye:":ANT 


600 

FOR T=1 TO ANT 


610 

CALL INDTAST 


620 

NEXT T 


630 

ELSE IF T*="H" THEN 


640 

CALL LOAD 


650 

ELSE IF T$="G" THEN 


660 

CALL SAVE 


670 

ELSE IF T*="S" THEN 


680 

LET 1=1:CALL SCROLL 


690 

ELSE IF T*="0" THEN 


700 

CALL OPTAELLING 


710 

ELSE IF T*="U" THEN 


720 

CALL PRINT 


730 

END IF 


740 

LOOP 


750 

DEF EFTERNAVN 


760 

STRING *15 DS 



770 INPUT AT 20,5:PROMPT "indtas 

t efternavn: ":D$ 

780 LET D*=UCASE$(D$(1:1))8.DS(2: 

> 

790 PRINT AT 20.5,USING 170:D* 

800 FOR 1=1 TO A 

810 IF D$=E*(I) THEN CALL SCRO 

LL 

820 IF Q$="M" THEN EXIT OEF 

830 NEXT I 

840 END DEF 

850 DEF OPTAELLING 

860 CLEAR SCREEN 

870 DISPLAY £102:AT 1 FROM 1 TO 

20 

880 SET £102:PALETTE 97,255,133, 

255:SET BORDER 97:SET £20:PALETTE 97,9 
7 

890 PRINT AT 10,10: "opt { 11 ing sk 

er !" 

900 LET DK,S,N,SF=0 
910 FOR 1=1 TO A 
920 IF L$(I)="DK" THEN 

930 LET DK=DK+1 

940 ELSE IF L*(I)="S" THEN 

950 LET S=S+1 

960 ELSE IF LS(I)="N" THEN 

970 LET N=N+1 

980 ELSE IF L*(I)="SF" THEN 

990 LET SF=SF+1 

1000 END IF 

1010 NEXT I 

1020 PRINT AT 6,5:"antal danske 
medlemmer ";DK:PRINT 
1030 PRINT TAB<5):"antal svenske 
medlemmer ":S:PRINT 
1040 PRINT TAB(5>:"antal finske 
medlemmer ":SF:PRINT 
1050 PRINT TAB(5):"antal norske 
medlemmer ";N:PRINT 
1060 PRINT CHR*(246>;TA8(5>S"anta 
1 medlemmer ialt: ";A:PRINT CHR$(246 

) 

1070 PRINT TA8<5):“tast U for uds 
krif11" 

1080 IF TASTS="U” THEN 
1090 LPRINT P12*:MG0*:MED*i" pr 

. ":OATO*:": "s" DK=":0K: M N=":N:" S=" 
sS;" SF=":SF:" IALT: ";A 
1100 END IF 
1110 END OEF 
1120 DEF SCROLL 
1130 CLEAR SCREEN 
1140 SET £102:PALETTE 88,255,88,9 
1:SET BORDER 88 

1150 DISPLAY £102:AT 1 FROM 1 TO 
20 

1160 SET £20:PALETTE 88,217,26,25 

5 

1170 DO 

1180 LET 0*="" 

1190 PRINT AT 8,5:B*(I),M*<I>,I 

1200 PRINT AT 10,5:ES(I>i", "jF 

* < I) 

1210 PRINT AT 12,5:GS( I > 

1220 PRINT AT 14,5:L*(1>;:Y* 

( 1 ) 

1230 LET Q*=TAST$ 

1240 IF ORO(Q$)=180 THEN 

1250 LET 1=1*1 

1260 ELSE IF 0R0(Q*)=176 THEN 

1270 LET 1=1-1 

1280 ELSE IF Q$="M" THEN 

1290 EXIT DEF 

1300 ELSE IF Q$="N" ANO T*<>"S" 

THEN 

1310 EXIT DEF 

1320 ELSE IF Q*="B" THEN 

1330 LET B*(I)="+":PRINT AT 8 

,5:B$(I):G0T0 1230 
1340 ELSE IF Q*="R" THEN 

1350 LET B$(I)="-":PRINT AT 8 

,5:B$(I):G0T0 1230 
1360 ELSE IF Q*=”U" THEN 

1370 LPRINT DKR*:LSP1S;MG0*;P 

10*;M*(I):LPRINT E*(1):LPRINT F*(I):LP 
RINT G*(I):LPRINT L*(I)::Y*<I):LPRI 
NT :LPRINT LSP2$:LPRINT LSP1*::G0T0 12 
30 

1380 ELSE IF QS="K” THEN 

1390 LET N=I:CALL INDTAST 

1400 ELSE IF Q$="S" THEN 

1410 CALL SLETNING 

1420 END IF 

1430 FOR X=1 TO 7 

1440 SET SCROLL UP 40,46 

1450 NEXT X 

1460 LOOP UNTIL 1=0 OR I=A+1 

1470 END DEF 

1480 DEF SUBMENU 


1490 SET VIDEO X 40:SET VIDEO Y 5 
:SET VIDEO MOOE 0:SET VIDEO COLOR 0 
1500 OPEN £20:"video:" 

1510 SET £20:PALETTE 9,9,9,9 

1520 DISPLAY £20:AT 23 FROM 1 TO 
5 

1530 CLOSE £0:SET 29,20:OPEN £0:" 

editor:” 

1540 PRINT “joy op=forrige 

joy ned=n<ste" 


1550 PRINT "tast B for betalt 
R for restant" 

1560 PRINT "tast K for korrektion 
, S for sletning" 

1570 PRINT "tast M for menu, 

N for nlste” 

1580 PRINT " tast U for udsk 

rift": 

1590 CLOSE £0:SET 29,102:OPEN £0: 
"editor:" 

1600 END DEF 

1610 DEF MAINMENU 

1620 SET VIDEO X 32:SET VIDEO Y 1 
6:SET VIDEO MODE 0:SET VIDEO COLOR 0 
1630 LET CS=CHRS(246) 

1640 OPEN £10:"video:" 

1650 SET £10:PALETTE 9,118,9,178 

1660 CLOSE £0:SET 29,10:OPEN £0:" 

editor:" 

1670 PRINT AT 6,l:"tast E for eft 
ernavnss!g":C$:PRINT "tast F for forna 
vnss!g":C* 

1680 PRINT "tast M for medlemsnum 

mers!g":C*:PRINT "tast L for landsslg" 
;C*:PRINT "tast 0 for opt 111ing";C*:PR 
INT "tast S for alfabetisk scroll";CS 
1690 PRINT "tast B for +/- betalt 

s1g":C$:PRINT “tast P for postnr. sign 
ing"iC* 

1700 PRINT "tast N for nyt medlem 

";C*:PRINT "tast G for at gemme data"; 
CS:PRINT "tast H for at hente data";C$ 
:PRINT "tast U for udskrifter";C*; 

1710 CLOSE £0:SET 29,102:OPEN £0: 

"editor:" 

1720 SET VIDEO X 34:SET VIDEO Y 1 
:SET VIDEO MODE 5:SET VIDEO COLOR 1 
1730 OPEN £30:"video:" 

1740 SET £30:PALETTE 9,146,38,255 

1750 PLOT £30:30,35, 

1760 PRINT £30:"* * * * * *" 

1770 PLOT £30:380,35, 

1780 SET £30:INK 2 

1790 PRINT £30:"MENU" 

1800 END DEF 

1810 DEF INDTAST 

1820 STRING *25 E1S*15,F1S*12,M1$ 

*4,G1S,Y1*,B1*«1,L1*»2,C*.S**2,U$ 

1830 CLEAR SCREEN 

1840 LET C$=CHR*(241):LET S*="" 

1850 DISPLAY £102:AT 1 FROM 1 TO 

20 

I860 SET £102:PALETTE 96,91,96,21 

7:SET BORDER 96:SET £20:PALETTE 96,96 
1870 IF Q$="K" THEN 
1880 PRINT AT 4,0:C*:"RETTER: " 

;C*:PRINT E$<1>;CS:PRINT F*<I>;C$:PRIN 
T M$(I);C$:PRINT CS:GOTO 1980 
1890 END IF 

1900 INPUT AT 14,0,PROMPT "indtas 

t efternavn: ":E1$ 

1910 LET U$=E1*:LET E1*=UCASE*(U* 

(1:1))&US(2:) 

1920 PRINT AT 5,0:E1*:C* 

1930 INPUT AT 15,0:PROMPT "indtas 

t fornavn: ":F1$ 


1940 LET US=F1$:LET F1S=UCASE*(U* 

(1:1))&U$<2:) 

1950 PRINT AT 6,1:F1*;CS 

I960 INPUT AT 16,1,PROMPT "indtas 

t medIemsnummer: ":M1$ 

1970 PRINT AT 7,1:M1*;CS 

1980 LINE INPUT AT 17,1,PROMPT "i 

ndtast gade & gade nr. ";G1$ 

1990 PRINT AT 8,0:G1$:C* 

2000 LINE INPUT AT 18,1,PROMPT "i 

ndtast postnr. & by: ":Y1* 

2010 PRINT AT 9,1:Y1S:C* 

2020 INPUT AT 19,1,PROMPT "indtas 

t land <DK,S,N,SF): ":L1* 

2030 LET L1*=UCASE*(L1*) 

2040 PRINT AT 10,l:Ll*sC* 

2050 PRINT AT 20,1:"Tast B for be 
talt, R for restant" 

2060 LET S*=TAST* 

2070 IF S*<>"B" THEN LET Bl*="-" 

2080 IF SS="B" THEN LET Bl*="+" 

2090 PRINT AT ll,l:Bl*;C* 










2100 PRINT AT 21,1:"tast U for ud 
skrift af "i 

2110 IF Q$="K" THEN PRINT "rettel 
se": 

2120 IF T*="N" THEN PRINT “nyt me 
diem:": 

2130 LET S*=TAST* 

2140 IF S*="U" AND Q*="K" THEN 

2150 LPR1NT P12*;MG0*:"G1.adr. 

: ":M*<i>:" ":E*(D:" M ;F$<I):" ";G*(i 
... l*U> :Y*(D 

2160 LPRINT "Ny adresse: ";G1*; 

" ":li*s"-":yi* 

2170 END IF 

2180 IF QS="K" THEN 

2190 LET GS(I)=G1*:LET Y*(I)=Y1 

*:LET LS(1)=L1*:LET B*(I)=B1* 

2200 CLEAR SCREEN 

2210 SET £102:PALETTE 88,255,88 

,91:SET BORDER 88:SET £20:PALETTE 88,2 
17,26,255 
2220 END IF 

2230 IF SS="U" AND T*="N“ THEN LP 

RINT P12S;MG0*;"ny: ";B1*:M1S:.El*: 

":Fi*:" ... 

2240 IF T*="N" THEN CALL INSERT 

2250 CLEAR SCREEN 

2260 END DEF 

2270 DEF FORNAVN 

2280 STRING *15 D* 

2290 INPUT AT 20,5:PROMPT "indtas 

t fornavn: ":0* 

2300 LET DS=UCASE*<D*(1:1))&D*(2: 

) 

2310 PRINT AT 20,5,USING 170:0* 

2320 FOR 1=1 TO A 

2330 IF D*=F*(I) THEN CALL SCRO 

LL 

2340 IF Q*="M" THEN EXIT DEF 

2350 NEXT 1 

2360 END DEF 

2370 DEF NUMMER 

2380 STRING *4 D* 

2390 CLEAR SCREEN 

2400 INPUT AT 20,5:PROMPT "indtas 

t medIemsnummer: ":D* 

2410 PRINT AT 20,5,USING 170:DS 

2420 FOR 1=1 TO A 

2430 IF M*(I)=D* THEN CALL SCRO 

LL 

2440 IF Q*="M" THEN EXIT DEF 

2450 NEXT I 

2460 END DEF 

2470 DEF POSTNR 

2480 STRING *6 0* 

2490 INPUT AT 20,5;PROMPT "indtas 

t postnummer: ":DS 
2500 PRINT AT 20,5,USING 170:D* 

2510 FOR 1=1 TO A 

2520 LET C*=Y*(I) 

2530 IF C*< 1:41=0*0:4) THEN CA 

LL SCROLL 

2540 IF Q*="M" THEN EXIT DEF 

2550 NEXT I 

2560 END DEF 

2570 DEF LAND 

2580 STRING *2 0* 

2590 INPUT AT 20,5;PROMPT "indtas 

t land (DK.S.N.SF): ":D* 

2600 LET D*=UCASE*(D*) 

2610 PRINT AT 20,5,USING 170:0* 

2620 FOR 1=1 TO A 

2630 IF L* <11=D* THEN CALL SCRO 

LL 

2640 IF Q*="M" THEN EXIT DEF 

2650 NEXT I 

2660 END DEF 

2670 OEF BETALT 

2680 STRING *2 U*,0* 

2690 LET U*='"' 

2700 PRINT AT 20,1:"tast B=betale 

re, andet=restanter” 

2710 LET U*=TAST* 

2720 IF U*="B" THEN 

2730 LET 0*="+":PRINT AT 20,5,U 

SING 170:"betalere" 

2740 ELSE 

2750 LET D*="-":PRINT AT 20,5,U 

SING 170:"restanter" 

2760 END IF 

2770 FOR 1=1 TO A 

2780 IF BSC 11=0* THEN CALL SCRO 

LL 

2790 IF Q*="M" THEN EXIT DEF 

2800 NEXT I 

2810 END DEF 

2820 DEF SLETNING 

2830 CLEAR SCREEN:SET £20:PALETTE 

88,88 

2840 PRINT AT 5,0:"tast U hvis pr 

intning Inskes: " 


2850 IF TAST$="U" THEN LPRINT P10 

*: "siet t et : ";MS(I);" ";E*<I)j", ":FS( 
Hi" " ;G*( I): " "; Y*< I) 

2860 PRINT CHR*(246) :"sietter: 

M*(I):'* ":E*(I)i", ";F*<11:PRINT CHR* 

(246) 

2870 FOR N=I TO A-l 

2880 LET E*CN)=E*(N+1>:LET F*(N 

)=F*(N+1) 


2890 LET M*(N)=M*(N+l):LET L*(N 

)=L*(N+1) 

2900 LET G*(N)=G*CN+1>:LET Y*(N 

)=Y*(N+l) 

2910 LET L*(N)=L*(N+1):LET B*(N 

)=B*(N+1) 

2920 NEXT N 

2930 LET A=A-1 

2940 CLEAR SCREEN:SET £20:PALETTE 

88,217,88,177 
2950 END DEF 
2960 DEF SAVE 
2970 CLEAR SCREEN 

2980 INPUT AT 20,0,PROMPT "indtas 

t dat o:":DATO* 

2990 SET STATUS ON 

3000 PRINT AT 22,0. 

3010 LET P*=E*<1):LET P2*=E*(A):L 

ET MED*=P*( 1:1 )8."-"&.P2*( 1:1 > 

3020 OPEN £1:"TAPE:KARTOTEKSDATA" 

ACCESS OUTPUT 

3030 PRINT £1:A 

3040 PRINT £1:DATO* 

3050 PRINT £1:MED* 

3060 FOR 1=1 TO A 

3070 PRINT £1:E*(1) 

3080 PRINT £1:F*(I) 

3090 PRINT £1:MS(I) 

3100 PRINT £1:GS(I) 

3110 PRINT £1:Y*(I) 

3120 PRINT £1:L*(I) 

3130 PRINT £1:B*(I) 

3140 NEXT I 

3150 CLOSE £1 

3160 SET STATUS OFF 

3170 END DEF 

3180 DEF LOAD 

3190 SET STATUS ON 

3200 CLEAR SCREEN 

3210 OPEN £1:"TAPE:KARTOTEKSDATA" 

ACCESS INPUT 

3220 INPUT £1:A 

3230 INPUT £1:DATO* 

3240 INPUT £1:MED* 

3250 PRINT £10,AT 1,1:"kartotek " 

;MED*;" pr.":DATOS 
3260 FOR 1=1 TO A 

3270 INPUT £ 1:E*(I> 

3280 INPUT £1:F*<I) 

3290 INPUT £1:M*(I) 

3300 INPUT £ 1:G$(I) 

3310 INPUT £1:Y*(I) 

3320 INPUT £1:L*(11 

3330 INPUT £1:8*(I) 

3340 NEXT 1 

3350 CLOSE £1 

3360 SET STATUS OFF 

3370 ENO DEF 

3380 OEF INSERT 

3390 STRING *30 P*,U* 

3400 CLEAR SCREEN 

3410 LET X=0 

3420 PRINT AT 10,0:"indsttter: "; 

FI*:". ";E1* 

3430 FOR N=A+1 TO 2 STEP-1 

3440 LET L=M1N(LEN(E1*8.F1*> ,LEN 

< E* (N— 1) &F* (N— 1) >) :LET P*=E*(N-118.F* (N 
-11:LET U*=E1*&F1*:LET P*=P*(1:L):LET 
U*=U*(1:L) 

3450 IF P*<U* THEN EXIT FOR 

3460 NEXT 

3470 LET X=N:LET A=A+1 

3480 FOR N=A TO X+l STEP-1 

3490 LET M*(N)=M*(N-1):LET B*(N 

)=B*(N-1):LET E*(N)=E*(N-1):LET F*(N)= 
F*(N-1):LET G*(N)=G*(N-1):LET Y*(N)=Y* 
(N-l):LET L*(N)=L*(N-1) 

3500 NEXT N 

3510 LET E*(X)=E1*:LET F*CX)=F1*: 

LET M*(X)=M1*:LET GS(X)=G1*:LET Y*(X)= 
Y1*:LET L*(X)=L1*:LET B*(X)=B1* 

3520 END DEF 

OFF fUAD 

3540 SET CHARACTER 91,126,108.108 

,126,108.108,110,0.0 !C 
3550 SET CHARACTER 92,2,60,110,10 

2,102,118,60,64,0 !\ 

3560 SET CHARACTER 93,24,0,60,102 

,126,102,102,0,0 II 

3570 SET CHARACTER 123,0,0,62,10, 

62,104,62,0,0 '{ 


3580 SET CHARACTER 124,0,2,60,110 

,102,118,60,64,0 I! 

3590 SET CHARACTER 125,24,0,60,6, 

62,102,62,0,0 I) 

3600 END DEF 

3610 DATA OK.14, ,S,15,SVERIGE,N.14 
,NORGE,SF,15,FINLAND 
3620 DEF PRINT 
3630 STRING *5 C*,US,SS 

3640 LET CS=CHR*(241) 

3650 CLEAR SCREEN 

3660 DISPLAY £102:AT 1 FROM 1 TO 

21 

3670 PRINT "* * * • U0PRINTN1NG * 

• * *";C*:PRINT 

3680 PRINT "tast L for udprintnin 

9 af labels":C* 

3690 PRINT :PRINT "tast M for med 

1emsIist e":C* 

3700 LET U*=TAST* 

3710 PRINT AT 10.1:"tast S for st 

art af printning";C* 

3720 LET S*=TAST* 

3730 PRINT :PRINT "ESC = exit":CS 

3740 IF U*="L" THEN CALL PLAB:EXI 

T DEF 

3750 LPRINT P12*;MG1*:TAB3S;LSP1* 

’3760 FOR 1=1 TO A 

3770 IF INKEY*=CHR*(27> THEN EX 

IT FOR 

3780 IF L*(I)="DK" THEN 

3790 LPRINT OKR*; 

3800 ELSE IF L*(I><>"0K" THEN 

3810 LPRINT NDKR*: 

3820 END IF 

3830 LPRINT L*<I),M*(I),E*(I>:" 

, "iF*(I),G*(I),Y*(I) 

3840 NEXT I 

3850 END DEF 

3860 DEF PLAB 

3870 STRING *5 LC*.LANDS.C*,A* 


3880 LPRINT P10*;MG0S:TAB2*: 

3890 RESTORE 3610 

3900 LET C*=CHR*( 13)8-CHR*( 10) 

3910 FOR L=1 TO 4 

3920 READ AS,LC*,LANO* 

3930 LET X=1:LPRINT R*;"R":CHR* 

(VAL(LC*>) 

3940 LET 1=1 

3950 IF L*(I)=A* THEN LET NR(X) 

=I:LET X=X+1 

3960 IF INKEY*=CHR*(27) THEN EX 

IT FOR 

3970 IF X=4 THEN LET X = 1:G0T0 4 

030 

3980 LET 1=1+1 

3990 IF 1<=A THEN 3950 

4000 IF X=1 THEN 4080 

4010 IF X=2 THEN LET NR(X)=0:LE 

T NR(3)=0 

4020 IF X=3 THEN LET NR(X)=0 

4030 LPRINT LSP1*:TAB1*;E*(NR(1 

)),M*(NR(1)),E*(NR(2)>,M*(NR(2)),E*(NR 
(3)),M*(NR(3)) 

4040 LPRINT TAB2*:F*(NR(1)),F*( 

NR(2)>,F*(NR(3)):C*:G*(NR(1)),G*(NR<2> 

),G*(NR(3)>{C*:Y*(NR(1)),Y*(NR(2)),Y*( 
NR(3)):C*:LAND*,LAND*.LAND*: 

4050 LPRINT LSP2* 

4060 IF I>=A THEN 4080 

4070 GOTO 3980 

4080 NEXT L 

4090 LPRINT LSP1*: 

4100 END DEF 

4110 DEF TAST* 

4120 STRING *1 U* 

4130 LET US=INKEY* 

4140 DO 

4150 LET U*=UCASE*(INKEY*) 

4160 LOOP UNTIL USO"" 

4170 LET TAST*=U* 

4180 END DEF 

4190 HANDLER UPS 

4200 IF EXTYPE=9208 THEN 

4210 GOTO 4310 

4220 ELSE IF EXTYPE=9229 THEN 

4230 IF EL<3370 AND EL>3210 THEN 

4240 RUN 

4250 ELSE 

4260 STOP 

4270 END IF 

4280 ELSE 

4290 RETRY 

4300 END IF 

4310 END HANDLER 

4320 END UHEN 

4330 GOTO 380 
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Helgarderet 



Her er et program, som kan 
lave reducerede systemer til 
tipning. Det eneste, program- 
met krcever, er, at du kender 
den procentvise tordeling, el- 
ler t.eks. 20 avisers gennems- 
nit tor den uge, hvor du vil tip- 
pe. Derefter beregner pro- 
grammet de resterende tegn, 
og du har sd mulighed tor at 
se de konstruerede rcekker pa 
skcermen.n 

Zillo Jensen 


PROGRAM TIPNING.521 


1 REM **#*******#****#*#*###*#**** 

2 REM #*# TIPSPROGRAM LAVET AF *** 

3 REM *** PETER ZILLO JENSEN *** 

4 REM **######*###**####**###*#*## 

8 TXS="(CLR,RVS ON,SPACE17>MENU 

(RVS OFF) “ 

9 DIM E(13),K(13),T(13),S(13,3), 

F $ (13 ) 

10 GG=2 GOSUB 400 

11 PRINT TXiJ"<CRSR NEL4>"TAE(8)"1. 
BLADTIPS" 

12 PRINT TAB(8)“(CRSR NED>2. PROCENT 
TIPS" 

13 P RINT TAE(3 >" (CRSR NED>3. UDSKRIV 
NING AF RAEKKER” 

15 PRINT"(CRSR NED3,GUL, 
SPACE12>PETER JENSEN" 

16 PRINT"(CRSR NED2,L.GRON, 
SPACE14)MAJ 1985" 

25 GET A* IF A*<"1"0R A$>"3"THEN 25 

26 ON VALCAT'GOTO 100,200,122 

100 GG=3■GOSUB 40O■D=0 

101 PRINT"(CLR,RVS ON, 

SPACE15)BLADTIPS 
(RVS OFF)" 

104 INPUT"(CRSR NED3,CRSR H0JRE3)ANT 
AL BLADE"JAN PRINT"(CLR)" 

GOSUB 7O0 FOR A=1 TO 13 

105 PRINT"(HOME,CRSR NED20)KAMP NR." 
A" SKRIV ANTAL AF 1 X 2 " 

106 INPUT E(A),K(A),T(A) 

110 IF E<A)+K(A)+T<A)OAN THEN PRINT 
" FEJL I TASTNING" GOTO 105 

112 PRINT" 

113 E(A)=INT<10O/AN*E(A)) 

: K (A )=I NT ( 100/ AN*K ( A ) ) 

T(A)=INT(100/AN*T(A)) 

114 GOSUB 250 

115 NEXT:FOR DD=0 TO 1000 NEXT 
120 GOTO 10 

122 GG=5 ; GOSUB 400 

123 PRINT"(CLR,RVS ON, 

SPACE9)UDSKRIVNI NO AF RAEKKER 
(RVS 0FF)"J -C=l R=4 

124 PRINT"(RVS ON,SPACE40,RVS OFF)" 
129 GOSUB 500 : FOR W=1 TO 10 


: PRINT"(HOME)" 

130 FOR A=1 TO 13 : Q=INT(RND(1)#99)+l 

131 IF Q<E(A)THEN PRINT TAB(U#3+2)"1 
I" : S(A,1)=S(A,1)+l•GOTO 140 

132 IF G<E(A)+K(A)THEN PRINT TAB(W*3 
+2)"XI"S(A,2)=S(A,2)+1 GOTO 140 

133 PRINT TAB(W*3+2)"2I" 
:S(A,3)=S(A,3)+1 

134 GET St IF S$<>""THEN 134 

140 IF A=3 OR A=6 OR A=9 THEN PRINT 

TAB(W#3)"4—+-" 

141 NEXT:NEXT PRINT"(RVS ON,SPACE40, 
RVS OFF)" GOSUB 300 

142 PRINT TAE(6)" (CRSR OP)TRVK i,RVS 
ON)SPACE(RVS OFF,SPACE)FOR NAESTE 

TEGN" 

143 PRINT TAB(6)"TRVK (RVS 0N)F3(RVS 
OFF,SPACE4)FOR NAESTE RAEKKE" 

144 PRINT TAB(6)"TRVK (RVS 0N)F5(RVS 
OFF,SPACE4)FOR NAESTE 10(CRSR H0 

TRE > RREKKER" 

145'PRINT TAE(6)"TRVK (RVS 0N)F7(RVS 
OFF,SPACE4)FOR MENU" 

PRINT TAB(7)"(RVS ON)TVPETEGN I 
REVERSE" 

146 GET AT IF A*<"(F3)"0R A*>"(F7)"T 
HEN IF A$<>" "THEN 146 

147 SS=R SA=C IF A*=" “THEN C=C+1 
IF C=1S THEN C=2 : R=R+3 

IF R>33 THEN R=4 

148 IF A$="(F3)"THEN R=R+3C=2 
IF R>33 THEN R=4 

149 IF A$="(F5)"THEN 122 

150 IF AJ="(F7)"THEN 10 

151 GOSUB 600 FOR R=0 TO 1 
POKE 1024+C*40+R+A, 

PEEK(1024+C*40+R+A > +128 

152 POKE 1024+SS+SA*40+A, 

F'EEK( 1024+SS+SA#40+A)-128: NEXT 
155 PRI NT"(HOME,CRSR NED,RVS ON, 
SPACE6)":GOTO 146 

200 GG=7:GOSUB 400 D=0 
PRINT"(CLR,RVS ON, 

SPACE14)PROCENTTIPS 

201 PRINT"(CRSR NED3,CRSR H0JRE3)SUM 
MEN FOR DE 3 MULIGHEDER" 

202 PRINT"(CRSR NED,CRSR H0JRE3)SKAL 
TILSAMMEN GIVE 100 PROCENT" 

203 GET A*:IF A*="“THEN 203 


204 PRINT"(CLR)":GOSUB 700 
; FOR A=1 TO 13 

205 PRINT"(HOME,CRSR NED20)KAMP NR." 
A" SKRIV FROCENT FOR 1X2" 

26'6 INPUT E(A),K(A),T(A) 

207 IF E(A)+K(A)+T(A)O100 THEN PRIN 
T" FEJL I TASTNING":GOTO 205 

208 PRINT" 

209 GOSUB 250 

212 NEXT 

213 GOTO 10 

250 PRINT"(HOME)":FOR CC=1 TO D 
:PRINT"(CRSR NED)"J NEXT 
PRINT TAB(9)E(A>;TRB(14)K(A); 

TAB(19)T(A) 

254 D=D+1 IF D=1 THEN D=2 

259 IF A=3 OR A=6 OR R=9 THEN D=D+1 

260 RETURN 

300 PRINT"(HOME)"FOR A=1 TO 13 

305 IF S(A,1)=>S(A,2)AND S(A,1)=>S(A, 
3)THEN FJ(A)=FJ(A)+"1" 

306 IF S(A,2)=>S(A,1)AND S(A,2)=>S(A, 
3)THEN F*(A)=F*(A)+"X" 

307 IF S(A,3)“>S(A,1)AND S(A,3)=>S(A, 
2)THEN Ff(A)=F$(A>+"2" 

310 NEXT FOR R=1 TO 13 

PRINT TAB(34)"(RVS ON)"FJ(A) 

311 IF A=3 OR A=6 OR A=9 OR A=13 THE 
N PRINT 

312 NEXT:RETURN 

400 POKE 53281,0 POKE 53280,00 
POKE 64f., GG: RETURN 

500 PRINT"(HOME)"FOR A=1 TO 13 

501 IF A=4 OR A=7 OR A=10 THEN PRINT 

"-+" 

502 PRINT TAB(1-INT(A/10))A"(CRSR VE 
NSTRE)I"NEXT 

503 RETURN 

600 IF C=5 OR C=9 OR C=13 THEN C=C+1 

601 RETURN 

700 PRINT"(HOME)" PRINT TAB(4)"--r 

705 FOR A=1 TO 13 

710 IF A=4 OR A=7 OR A=10 THEN PRINT 

TAB(4) "-4-4-4-4" 

720 PRINT TAB(5-INT(A/10))A“I I 
I I" : NEXT 

730 PRINT TAB(4)“- - --*•-"*•- 

J " 

740 RETURN 



















8 LET T0P=0 

9 GDSUB 2000 
10 LET B= 1 

20 LET C=5 
30 LET Y=5 
40 LET PL-38 
50 LET 
60 LET 
70 LET 

££»£££££**£££ ®£ 


* ££ £ K ££ N 

* £££ h C Y 

JQW ££5 £ ££££ 

<** £ A££ X ££ £ P 

M££ V ££ B L 

£ ££ G U F 

£££££££££££££££££££££ 

££££££££££££" 

75 LET A4=A$+"din: ABCDEFGHIJKLM 
NOPQRSTUVUXYZ tops* 

80 CLS 

90 PRINT P$ 

92 IF TOP)0 THEN PRINT AT 13,T0P+ 
3; 

95 GOSUB 1000 

100 LET Y=Y+(INKEY$="P")-(INKEY4 
® M Q H ) 

110 IF Y=0 THEN LET Y=8 

120 IF Y=9 THEN lET Y=1 

130 IF Y>1 PND Y <5 THEN LET B=B-1 

140 IF Y>5 THEN LET B=B+1 

150 IF Y)3 PND Y <7 THEN LET C=C+1 

160 IF Y <3 OR Y=S THEN LET C=C-1 

170 LET B*=CHR$ B+B$( T05) 

180 LET C$=CHR$ C+C*< TQ5) 

190 PRINT PT CODE B4( 1),CODE C*(l)! 
" o" 

200 PRINT PT CODE B*<2),C0DE C*(2)S 
" O M 

210 PRINT PT CODE B*<6),C0DE C*(6)5 

220 IF CODE AS<<B*32)+C+1)<>0 THE 
N GOTO 300 
230 GOTO 100 

300 IF CODE P*((32*B)+C+1)<>PL TH 
EN GOTO 360 


LET A*<<32*B)+C+1>=" M 
LET AL=AL+1 

PRINT PT 12,PL-35!CHRS (PL+127 

IF PL-38)TOP THEN LET TOP=PL- 

PRINT PT 13,TOP+2," •" 

IF PL=64 THEN GOTO 500 

GOTO 100 

PRINT PT B.C!"*" 

IF INKEY$="U" THEN GOTO 10 
PRINT PT B, C!"** 

GOTO 360 
CLS 

PRINT P$( T0384) 

GOSUB 1000 
LET I$="bravo" 

LET H*=" > ■M.Tff0A ,, +CHR$ 11 + " 

? : $#" +CHRS 1 l + H A0<EfM«*" " 

LET G$= ..•■■■ 


560 FOR H=1 T026 

570 PRINT PT CODE G*(H),CODE H$CH); 

580 PRINT PT CODE G*(H+4),CODE H$(H 
*-4>! H 0" 

590 PRINT PT CODE G*<H+5),C0DE H$<H 
h5) !"o" 

600 If H) 7 AND H<13 IH£N PRINT PT 1 
Mi 1$ <k-7) 

610 GOSUB 1500 
620 NEXT H 

630 PRINT PT Ot 0! "c." SPT 1,0? M 0 M 
640 GOSUB 1500 

650 PRINT PT 2, 0? "o" JPT 1,0?" * 

660 GCSLB 1500 

670 FOR K*5 TOO STEP-1 

680 PRINT PT 1» M5 M " 

690 IF r=5 THEN PRINT PT 1,0! "o” 

700 IF tt> 3 THEN PRINT PT l,M-4?"0” 
710 GOSUB 1500 
720 NEXT r 

730 PRINT PT O,0??PT 1,0!"A" 

740 GOSUB 1500 

750 PRINT PT 1,0; ,, £" SftT 2,©i"«" 

760 IF INK£Y$="U'* THEN GOTO iO 
770 GOTO 750 

iOOO PRIN" PT 0,OS M a"?PT 1,0! »0” 
l 010 COSUB 1500 


1020 PRINT PT 2,0S M c M SflT 1,0!" M 
1030 GOSUB 1500 
1040 FOR 3=0 TC5 
1050 PRINT PT l,G!"o" 

•060 IF G)0 THEN PRINT ftT l.G-l! "0" 
.070 IF G=5 THEN PRINT PT 1,0!" H 
1080 GOSUB 1500 
1090 NEXT G 

1100 PRINT P~ 0. 0!"«"!PT 1, 0S "A" 
1110 GOSUB 1500 

1120 PRINT PT 1,0S"£” SPT 2,0!"£" 
1130 GOSUB 1500 
1 !40 IF PL = 64 THEN RETURN 
1150 PRINT PT 2, 25 " REPDY?“ 

1160 FOR J=i T025 

1170 NEXT J 

1180 PRINT PT 2,2!" 

1500 FOR J=1 T05 
1510 NEXT J 
1520 RETURN 

2000 PRINT " •«|B* 2 B»orai|t«* 

S 

2010 PRINT 
2020 PRINT 
2030 PRINT 

2O40 PRINT "DL SKPL STYRE ORKEN - 
WORMIT - RUNDT °PP BPNEN 

DU STYRER MED *Q* CG 
Q - VENSTRE 
P - HOJRE 

DU SKPL *SP1SS* PL_E 
BOGS7PVERNEI ALFABETI3K RPEKKEF0 
^GE" 

2050 °RI\T "TRY* *0* FOR PT STPR- 
E (OM) " 

2060 PRINT 
2070 PR I \T 

2080 PRINT TPE» IS! 1 i n 

2030 PRINT TAB 18; J J' 

2100 PRINT TAB 16!" mimlm " 

2110 PRINT ’’■QB 15!’* •• _ *. " 

2120 PRINT TAB 14?"." ■ * r . " 

2130 PRINT TAB 14 5 

2140 PRINT TAE 18! "J V 

2150 PRINT TAB l8i"l 2 CRR0R-S3F""" 

25.60 IF INKEY$="U" THEN RETURN 

2170 GOTO 2160 

3998 SAVE "P-Z WORrc" 

3399 GOT 1 
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■ RON er en energisk lille 
sjover, som lever i en kcelder. 
hvor han har det skidt. Hdn 
ansker at komme op pd top- 
pen at huset. i sikkerhed i et lil¬ 
le rum under loftet. I gulvet er 
der huller, og det er igennem 
dem RON skal, for at nd top- 
pen. RON styres med cursor 
tasterne. og hvis han ansker 
det, kan man med COPY ta- 
sten lave et hul i gulvet, dog 
hajst tre gange. For at gore det 
svcerere vil du blive forfulgt af 
vceggene og sommetider vil 
der blive skudt laserstrdler ef- 
ter dig. Hvis du er hurtig, kan 
du med et tryk pd 'SPACE' 
standse„strdleme. □ 

Moiten Olsen. Jens Husbjerg 
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AMSTRAD SPIL, *** RUN RON *** 

10 ’ - J.HusbJerg & M.Cls*ri - April - 19S5 - 

20 SYMBOL AFTER 100:SYMB0L 231.40>&20.&70, &D8, SSD, S7, &2< SO:SYMBOL 232, SO, S2, S7, S 
SD,&DS.S70,&20,SO 
30 BORDER 13:MODE 2:hui=7 

40 lm%=1:P0INTSLUT=0:JL=1 :poi rit*=500:x*=29:y*=22:x3*=30:y3*=6:y4*=2:x4%=50:y5%=2 
:x5*=60:y6X=2:x6%=70:y7X=4:x7*=10:x3%=30:y 8X=4:x9%=70:y9%=4:FIRE=3:CLS:G0SUB 230 

50 LOCATE 10,24:PRINT"Point:":LOCATE 55,24:PRINT "SKud:":LOCATE 65,24:PRINT"Bane 
: LOCATE 40, l: PRINT " “S LOCATE 33, 24: PRINT “*** RUN RON ***" 

60 IF x%=40 AND y%=l THEN GOTO 700 

70 IF INKEY(21=0 AND y* <24 THEN y*=y*+l:GOSUB 82O:G0TO 150 

SO IF INKEY CO)=0 AND y»>1 THEN y%=y*-l:GOSUB 320:G0T0 170 

90 IF INKEY(3)=0 AND X*>1 THEN x*=x*-l:GOSUB 320:G0T0 210 

100 IF INKEY(1)=0 AND x*<79 THEN x%=x%+1:GOSUB S20:G0T0 190 

110 IF INKEY(91=0 AND FIRE)0 THEN LOCATE X%,Y*-l:PRINT " ":FIRE=FIRE-1 

120 GOSUB 330 

130 LOCATE 17,24:PRINT po int%:LOCATE 61,24:PR1NT FIRE:LOCATE 71,24:PRINT S-hui:L 
DCATE x*,y%:PRINT CHR*<225) 
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140 GOSUB 250:GOTO 60 

150 IF TEST<x7*S-S, <25-y7)*16)=l THEN Y7=Y7-l:G0T0 70 

160 GOSUB S50:LOCATE x7, y7-l:GOSUB 360:G0SUB S30:G0SUB 250:GOTO 60 

170 IF TEST(x7*3-3, <25-y7)*16)=1 THEN Y7=Y7+1:G0T0 70 

ISO GOSUB 850:LOCATE x7,y7+l:GOSUB S60:G0SUB S30:G0SUB 250:G0T0 60 

190 IF TEST(x7*8-3, (25-y7)* 16)=1 THEN x7=x7-l:GOTO 70 

200 GOSUB S50:LOCATE x7-l,y7:GOSUB 860:GOSUB 830:GOSUB 250:GOTO 60 

210 IF TEST(x7*3-S,(25-y7)*16)=1 THEN x7=x7+l:GOTO 70 

220 GOSUB 850:LOCATE x7+l,y7:GOSUB 860:G0SUB 830:G0SUB 250:G0T0 60 

230 FOR xl7=l TO 73:L0CATE xl7,1:PRINT CHR* (143) : LOCATE x IV., 24: PRINT CHR*C143):N 

EXT: FOR yl7=l TO 25:L0CATE 1, y 17.: PRINT CHR*(143):LOCATE 79, y 17-: PRINT CHR*C143);C 

HR*(143)5:NEXT:FOR yl7=l TO 23 STEP 2:F0R xl7=l TO 79:L0CATE x17,y17.:PRINT CHR*< 

143):NEXT:NEXT 

240 FOR y17=3 TO 21 STEP 2:F0R d7=l TO hui:LOCATE (70*RND(1))+2,y17:PRINT " ":NE 

XT:NEXT:FOR X17=l TO 79:L0CATE X17,25:PRINT CHR*(143);:NEXT:RETURN 

250 g7=INT(3*RNDCTIME))-i:x37=x37+g7 

260 IF x37=79 THEN x37=78 

270 IF x37=l THEN x37=2 

230 IF TEST(x37*3-S,(25-y37)*16-16)=0 THEN y37=y37+2:LOCATE x37,y37-2:PRINT " " 
290 LOCATE x37,y37:PRINT " ";CHR*(143);" " 

300 IF x37=x7 AND y37=y7 THEN GOTO 710 
310 g7=INT(3*RNDCTIME))-l:x47=x47+g7 
320 IF x47=79 THEN x47=7S 
330 IF x47=l THEN x47=2 

340 IF TEST(x47*8-8,(25-y47)*16-16)=0 THEN y47=y47+2:LOCATE x47,y47-2:PRINT " - 
350 LOCATE x47,y47:PRINT " ";CHR* ( 143);" “ 

360 IF x47=x7 AND y47=y7 THEN GOTO 710 

370 IF x7> 3+x57 THEN 97=1 

380 IF x7<3+x57 THEN g7=-l 

390 x57=x57+g7 

400 IF x57=79 THEN x57=7S 

410 IF x57=l THEN x57=2 

420 IF TEST<x57*8-8»(25-y57)*16-16)=0 THEN y57=y57+2:L0CATE x57,y57-2:PRINT " " 
430 LOCATE x57,y57:PRINT " “;CHR*C143);" “ 

440 IF x57=x7 AND y57=y7 THEN GOTO 710 
450 g7=INTC3*RND(TIME))-l:x67=x67+g7 
460 IF x67=79 THEN x67=73 
470 IF x67=l THEN x67=2 

430 IF TEST<x67*S-S, (25-y67)*16-16)=0 THEN y67=y67+2:L0CATE x67,y67-2:PRINT " “ 
490 LOCATE x67,y67:PRINT " ";CHR*<143)5" " 

500 IF x67=x7 AND y67=y7 THEN GOTO 710 
510 97=INT(3*RND(TIME))-l:x77=x77+97 
520 IF x77=79 THEN x77=7S 
530 IF x77=l THEN x77=2 

540 IF TEST(x77*S-8,(25-y77)*16-16)=0 THEN y77=y77+2:LOCATE x77,y77-2:PRINT " “ 
550 LOCATE x77,y77:PRINT “ "?CHR*<143)5" " 

560 IF x77=x7 AND y77=y7 THEN GOTO 710 
570 g7=I NT(3*RND(TIME))-l:x87=xS7+97 
530 IF x87=79 THEN x87=7S 
590 IF x87= 1 THEN x87=2 

600 IF TEST(xS7*3-8,(25-yS7)*16-16)=0 THEN yS7=y87+2:LOCATE xS7,y87-2:PRINT " " 
610 LOCATE xS7,yS7:PRINT " ";CHR*<143);" " 

620 IF xS7=x7 AND yS7=y7 THEN GOTO 710 
630 g7=INT(3*RND(TIME>)-l:x97=x97+g7 
640 IF x97=79 THEN x97=7S 
650 IF x97= 1 THEN x97=2 

660 IF TEST(x97+S-S,<25-y97)*16-16)=0 THEN y97=y97+2:LOCATE x97,y97-2:PRINT " " 
670 LOCATE x97,y97:PRINT “ ";CHR*<143);" " 

6SO IF x97=x7 AND y97=y7 THEN GOTO 710 
690 RETURN 

700 GOSUB 870:lm7=lm7+l:IF HUL=1 THEN GOTO 710 ELSE huI=hul-1:GOTO 40 
710 GOSUB S70:F0R x = J TO 7: bo i rits l ut=9em7 < x) +po i nts I ut: NEXT: GOTO 780 
720 YC7=INT(6*CRND(TIME))+l)*2 
730 FOR B0LD7=77 TO 2 STEP -2 

740 IF YC7=Y7 AND X7=B0LD7 OR yc7=y7 AND x7=bold7+l THEN LOCATE X7,Y7:PRINT CHR* 
(238):LOCATE 35,13:PRINT "GAME OVER":FOR D7=l TO 1000:NEXT:GOTO 710 
750 SOUND 1,25,2,15,2,2,1:IF INKEY(47)=0 AND FIRE>0 THEN LOCATE B0LD7,YC7:PRINT 
" “:Doint=Doint-250:fire=fire-1:RETURN 

760 LOCATE B0LD7,YC7:PRINT CHR*(231):LOCATE B0LD7,YC7:PRINT .LOCATE boid7+l,y 

>:7: PRINT CHR*(232) : LOCATE bo l d7+l, yc7: PRINT " " : NEXT 
770 RETURN 

780 LOCATE 17,13:PRINT" Du fik ";POINTSLUT+(7-huI)*500;" boir.t, Vil du orOve i9e 
n IEj /ni. " 


790 IF INKEY(45)=0 THEN GOTO 30 
SOO IF INKEY(46)=0 THEN STOP 
S10 GOTO 790 

320 SOUND 1,100,2,15,2,2:RETURN 
330 IF RND(TIME)>0.95 THEN GOSUB 720 
340 RETURN 

350 LOCATE x7,y7:PRINT CHR*(225):RETURN 
360 PRINT " “:point7=POint7-i: RETURN 
370 gem7(l w7)=po int7:RETURN 
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PROGRAM 


I '■[B.J 

VOVEHHLSEH 


40 PRINT 1 


10 REM VOVEHALSEN <01985 BV KSJ. 

20 POKE 33281,0=POKE 53288,0:POKE 658,1 
2© : PR I NT *• < CLR . CVflN > " 

30 PRINT" -T- -f ✓-s -T- -t—. -. -T- -T- .-. -r- ,-» 

-10 PR I NT *' v -% ^ I I v —. ^— •—I I-1 I-1 I v -s 

H IS. I " 

30 PR I NT ** ■-' ^ -*-• --■ -- 

©0 PRINT" < - 

70 PR I NT " < CRSR MED3 > " 

©0 RRIMT TAB < 14 V' <ORANGE> MADE 19©5 BV" 
©0 PRINT"<CRSR NED2)" 

100 RRIMT TAB<13)"t -r* «■-s --.TM" 

110 PR I MT TAB <13>" I X I I •• 

120 RRIMT TAB < 13> " PH **-s I " 

130 RRIMT TAB< 13> " I '-s « r I *' 

1-10 RRIMT TAB( 13) ,,J - - ---" 

130 RRIMT TAB<14)"<OR0N,CRSR NED6> M I T R 
MV KEVCCRSR OR12)" 

160 A-INT < RND < 0)*200) = POKE 646 . R 
170 GET A*:IF A*-""THEN 100 

180 POKE 33280,5 POKE 33281,5^PRINT"<GL 
R> ” 

1 ©0 RR I MT " < CRSR NEB 1 0 , SORT , SPACES )V I L D 
IJ HAVE I MSTRIJKT I OM < J/N > " 

200 GET A* 

210 IP A*0"J"AND A*0"N"THEN 20" 

220 IP A$« ,, N ,, THEN 360 

230 RRIMT" (CLR, SPACES > I MSTRIJKT I OMER FOR 
"CHR*< 34> "VOVEHALSEN"CHR* < 34> 

248 RRIMT" — =■«*» = = = 

230 RRIMT"< CRSR NED)"! 

260 RRIMT"SRILLET GAAR UD RRR AT MORRE 

UD PRR EM" 

270 RRINT"PLAiFORM. 0VERST RRR SKRERMEN 
MED EM" 

260 RRIMT"FRLDSKREPM SPAENDT RRR RVGGEII 
POR TIL" 

2©0 RRIMT *' SI DST RT LRMDE RRR El' EM RNDE 
M PLRTFORM" 

300 RRIMT"SOM STRRR FORMEDEM- PET LVBER 
MEMT MOK" 

310 RRINT"IKKE. MEM DET ER PET IKKE• PO 
R VTNDEN" 

320 RRIMT"BLRESER MEOET KRRPTIOT I DAG * 
OO DET KAN" 

330 RRIMT"PRLDSKAERMEN IKKE LIDE." 

340 RRIMT" < CRSR MED >DU ©TVRER MED " 

330 RR I MT " < CRSR MED2 • RVS OMXCRVS OFF > — 
VENSTRE, H0JRE-< RVS OM>><RVS OFF> " 

360 RR I MT " < CRSR NED3, SPRCE4)TRVK RRR «■ R 
VS OM > SPACE< RVS OFF- 

SRRCE > MRRR DU ER KLHR" 

370 OET A*:IP A*<>" "THEM 370 

380 RRIMT"<CLR>ET 0JEBLIK, JEG LAESER D 

390 POR R-49132 TO 49152+44 : RERD B : POKE 
A.. B ■ NEXT : SVS 49 132 GOTO -430 

400 DRTR 1 20 .. 1 6© ^0,1 33 -■ 25 1 ■ 1 33 -* 233 • 1 6© .. 

1 6© 20© , 1 33 ^ 252 • 1 6© , -4© > 1 33 - 234 , 1 70 .. 165 

418 DRTR 1 . -4 1 ,25 1 • 1 33.1,1 77 , 25 1^1 45^ 253 

, 200 * 20© , 2-4© , 230 - 252,230 - 25-4 * 202,2"8 , 

2-42 

-420 DRTR 165, 1,.©,4, 133,1,86,96 

-430 POKE 53272 .. < REEK <53272 > AND 240)4 12 

440 POR R=65 TO 7 1 : POR B —O TO 7 REi *D C = 

POKE 12288+(8*R)+B,C : NEXT B,H-VI=1 LI-3 
-450 DRTR 60.126,255,255,233,255,66,36 

-460 DRTR 2-4,60,2-4,60 , ©0 • 2-4,36 , 1 02 

-470 DRTR *2-4,6-0 , 2-4,2© , 56 , 2-4 , 16.2-4 

480 DRTR 31,31,31,2-4 , 2-4 , 2-4 , 2-4 , 2-4 

-4©0 DRTR 2-4© , 2-48,2-48 , 2-4 • 2-4 , 2-4,2-4,2-4 

500 DRTR 255,129,129,255,255,12©,129.25 

5 

510 DRTR 0,0,0,85,85,255■255,255 

520 POKE 53280 - Q POKE 53281,0 : PRINT" <Cl. 

R > " 

530 RRINT 1 < CRSR MED3, SPACE, R0D- RVS OM,S 
PACE9, CVRM>" 

548 POR R=» 1 TO 18 : PRINT" —" NEXT 
550 RRIMT"< RVS OM, GR0M, SRRCE5 • RVS OFF • B 
. rr>| | | | | | | | l I I I < GROM • RVS OM - SRRCE23, 

CRSR OR2, RVS OPP > " ; 

560 RR I MT TRB < 20 > " < RVS OM ■ CVRM • 3PR» -E3 , R 
VS OPP • SRRCE10 • MV f D > — < CRSR OP2> HOME >" - 
■570 POR R= 1 TO 3 RERD B = D»PEEK < B > : E*PEF 

K < 542724B> : POKE B • 67 : POKE B+54272 - I 

5A0 POR KK=1 TO 200 NFXT : POKE B ■ I' ROKF 

J: *-5-4272 , E NEXT 
5©0 DRTR 1 ©0-4 , 1905, 1906 

600 FOR R—1 TO 20 RERD B D —'PEEK< B) ; F PF 

EK<54272+B> POKE B,$6 POKE B+54272•1 

610 FOR KK=1 TO 200 NEXT POKE B • B T i H f 

P.+54272.E MEXT _ _ ^ __ 

6^0 ORTR 1906 • 1 866 , 1 828 • 1 ?8b, t .'-4» • • 1 

1 66* 1 626 • 1 586 • 1 5-46, I 506 • 1 -466 • 1 H 26 • t TO. • 

..SO DATA 13-46 - 1 806.. 1266- 1226- I 186. I 1 *4. • 

^.40 FUP R= 1 Ti i 8 RERD B P-PEEK • F: • 4 O » 

I <5^ >72 + B • POI L E: . 67 POKE B + 54X?/ ■ I 

.0 f OR KK'*= 1 TO 2O0 HEX! POKF B ■ P I •• il * 

• ►5-42 72 • I NEXT 

• >60 DRTR I 1 4^,1 I -4 7 • 1 1 48 . 1 I -4© • I 1 5" • • 1*1 
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1 dette Commodore 64 pro- spring hedder BASE jump og 
gram skal du kravle ud pd en er selvtalgelig udviklet og op- 
platlorm - ganske som de ki- fundet i USA, hvor mange har 
nesiske faldskcermsspringere torsagt sig Ira Empire State og 
gar det de farste gange. World Trade Center. De fleste 
Du spasnder seletajet og pul- er da ogsd sluppet tra det 
sen stiger hastigt. Bare fald- med liveti behold . Men i det - 
skcermen folder sig hurtigt ud, te spit, skal du altsd lande pd 
for det er tkke sjovt at da nu. en helt anden platform, og 
Hvis den folder sig rigtigt ud, det tror jeg ikke har vaeret 
skal du lande pd nceste plat- pravet i virkeligheden. Spillet 
form. er selvlorklarende, og er 

At springe tra platlorme er i vaerd at bruge lidt tidpd. 
virkeligheden ikke nogen ny- Kenneth Migensen 

hed. Denne specielle form tor 


11S2,1133 

670 X— 1 1 53 : V — X — -40 = PA =54272 
680 POKE X•67 POKE PA+X,1 
6©0 OET R^ IP R*<>" "THEM 6©0 
700 X —X-*- 1 V-::-40 POKE 1 153.32 

710 OET A* : I-IMT<RMD< 1 > 4*500 > IP I <250 T 
HEM VI—1=POKE 1937.69 

720 IP I>250 THEM VI—2 POKE 1937,68 

730 IP R*-""THEM GOSUB 880 

7- 40 IP R$-", "THEM GOSUB 840 

750 IP R*-"."THEM GOSUB 860 

760 X“X+40 : V —X —-40 D — REEK < X > ■ E=REEK • V > D 

1—REEK <PA+X) ; E1«REEK<PR + V) 

770 POKE X * 66 : POKE V, 65 = POKE PA+X, 1 POK 
E PA+V,6 

780 IP X>—190-4 RMD X<— 1 ©08 THEM ©10 

790 IP X>—1909 RMD X<»1920 THEM ©70 

800 IP X>— 188-4 RMD X<— 1 886 THEM 1010 

8J.0 IP X>—192 1 RMD X<-1983 THEM 1060 

820 POKE X ^ D POKE V , E POKE FR + X.Dl POKE 

PR+V,El 
830 GOTO 710 

8- 40 IP VI —1 THEM X-X-2 RETURN 

©50 IP VI-2 THEM RETURN 

©60 IP VI—1 THEM RETURN 

©70 IP VI—2 THEM X—X+2=RETURN 

880 IP VI—1 THEM X—X—1 

890 IP VI—2 THEM X—X+1 

©00 RETURN 

©10 L » —LI — 1 POKE X, E - POKE V . D POKE FA+X 
D1:POKE PR+V,E1 

©20 X—X—1 IP X=1903 THEM ©50 

©30 D—PEEK<X> : E—REEK<X+PR> POKE X•67 RO 
KE PR-+-X. 1 FOR K—1 TO 200 NEXT 

9- 40 POKE X.- D POKE X-*-FR • E : GOTO ©20 

©50 IP LI—O THEM 1170 

©60 GOTO 670 

©70 POKE X ^ D POKE V . E : POKE FR+X. D1 POKE 
PR+V,E1 

©80 RRIMT" < HOME , CRSR H0 TRF10>PLRSK • " =PO 
R KK=1 TO 500:NEXT 

: PRIMT"<HOME ^ CRSR H» TRE10 • SRRCE6 > " 
©90 L I *=L I — 1 = IP L I —0 THEM 1170 
1000 GOTO 670 

1010 PRINT"<HOME .CRSR H0JRE1O > HURRA — HUR 
RR" = POR KK—1 TO * 00 NEXT 

1020 PR I MT " < HOME ,. CRSR HO JRE 10, SPACE ID" 

-GR=GR+1 

1030 IP OR —25 OR GA—50 OF* OR—75 OR OR—1 

00 THEM LI-LI+1 

1"40 POKE X■32 POKE V,32 
1050 GOTO 670 

1 060 L I =L I — 1 POKE X , E POKE V • D POKE F A-*- 
X,D1:POKE PR+V,E1 

1070 X —X+-1 IP X—1 9-4-4 I HEM 1100 
1080 D — PEEK<X> : E — PEEK<X + FA> POKE X ^ 67 P 
OKE PRX . 1 : POR K—1 TO 200 NEXT 

1090 POKE X,D POKE X+PR,E GOTO 1070 

1100 IP LI—0 THEM 1170 

1110 POKE . 53280, O POKE 53281-0 PRItfT" < C 

LR) " 

1120 PR I NT "< CRSR MED3 • SPACE , ROD -• RVS OM, 

SPACE©, CVRM > " 

1130 POR R—1 TO 18=PRINT" —"NEXT 

11-40 PRINT" < RVS ON , GR0N , 8PACE5 , RVS OPP , 
BLRR) I I I I I I I I I I I I < GROM , RVS OM .. SPACE23 .• 
CRSR OP2,RVS OFF)"; 

1 1 50 PR I MT TRB < 20 > " < RVS OM .. C VRM . SPRCE3 ^ 
^VS OFF , SPACE 1 0 , HV I D ) ~< CRSR OP2 • HOME > " '* 

1160 GOTO 670 

1170 POKE 53280 * 5 : POKE 53281,5 : PRINT"<C 
LR, SORT > " ; 

1180 PRINT"<CRSR MFD10)" 

1190 POR A—1 TO 1OO 

1 200 PR I MT " .-. ,-. c-r-, .-, --- rr 

1210 RRIMT" I I-1 I-+I H I I •'-n ^ 4 

1 220 PR I MT " ■-» -*■ •-1 *•-' ^ 

-* -*■'-•< CRSR OPS > " 

1230 K— I MT < RMD < 1 ,4X00 • POKE 6-46 . \ Ml XT 
1 2-40 PR I MT " < CLR , SOP T • m I RANT E PI RTF OPMF 
M-"OR"GANGE" 

1250 PRINT" < CRSR MED5 > V T I 1 HI PROVE ir.l II 
< J/M > 

1260 GET A* IP R4s""THFN 1260 

1270 IP R$<>"..T"ANn R» >"M** THEM I S' -KJ 

1280 IP Ai^"J"THFN PI IN 

1290 POKE 53280 - 1-4 Pi HI ^'V8I •. SVG -»*jP| 

52 • PRINT " < CLR • L. - FM RO • " . 


1 -48 . 1 I -4© . 
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Traditionen tro bringer vi ogsd 
et rumspil denne gang. Du 
skal styre din rumjager for at 
kunne skyde sdt mange uhy- 
rer som muligt. Du styrer med 
cursor tasterne eller keyboar¬ 
der Programmet har 3 svaer- 
heds grader. 

MadsBmun Olsen 


LS 


1 GO Si IB 5600 • I fT hi =P> 

2 GO SUB 900<5 

5 REM Laser Fcbruar 1985 

r by Mads Broun Olsen.Riskov 
0 PAPER 1: INK 7 BOEDER 1: C 

IB GO BUB 500 
20 PRINT FLPSH 1, AT 1,13., "L.ASE 
R" 

30 PRINT AT 5,10;"1 KEYBOARD" 
4.0 PRINT AT 7 , 10; "2 CURSOR" 

50 PRINT AT 21,7.;"© by Mads Br 
uun Olsen’* 

100 IF INKEY$»"1" TMEN GO TO 15 
O 

110 IF INKEY$«"2" TMEN GO TO 17 

0 

130 GO TO 100 

150 LET U $■*' i **! LET d$«"J**: LET 

llS So TO 1B0 
170 LET u$«"7* 
f*-"0" 

180 CL5 

200 BORDER 4.: PAPER 0: INK 7 : C 
L5 

210 PRINT PAPER 4., AT 0,0; 

220 PRINT INK 0, PAPER 4.; FLASH 
1;AT 0,17;"LASER" 

230 FOR a«l TO 21: PRINT PAPER 
4-, AT a ,0; ** ** : NEXT a 

240 PRINT AT 1,0, INK 0; PAPER 

250 C PRINT AT 5,0, INK 0; PAPER 
4, " Liv: ";l 

280 PRINT AT 7,0, INK 0, PAPER 
4, ** Hi : 

270 PRINT AT 3,0, INK 0; PAPER 

i?7B LET ions ter -INT <RND*2) 

275 IF sons ter -0 THEN LET 


LET d$«"6": LET 


n 


77 IF ions ter -1 THEN LET ■ 

278 LET b«INT (RNDt20)♦1 

280 PRINT AT 0,0, INK 0, PAPER 

^isB PRINT INK 0, PAPER 4;AT 11, 
«;"Svaer:";y _ 

300 PRINT INK 3; AT h,28;"^J ** 

301 PAUSE u 

305 PRINT AT b,c-l;*‘ ** 

310 PRINT INK (aonstert4);AT b, 

C 32l LET c-cfl 
330 IF c-26 THEN GO TO 8000 
400 TF INKEY$«u4 AND h>l THEN L 
ET h-h-1: PRINT AT h«-l,28;" 

410 IF INKEY*-d* AND h<21 THEN 
LET h -h 1: PRINT AT h-1,28," 

420 IF INKEYTHEN GO TO 700 


430 GO TO 300 

B00 PRINT AT 10,5, **5vae r hedr»9 r a 
d 1,2,3 7 (1 er den sv 

ae res t e ) " 

510 INPUT u 

520 IF yol AND y<>2 AND y < » 3 T 
HEN GO TO 510 
530 CLS : RETURN 
B00 STOP 

5000 FOR v — 1 TO A 
5010 READ z* 

5020 FOR x«0 TO 7 
5030 READ n 
5040 POKE USR z$+x,n 
5050 NEXT x• NEXT v 

5080 DATA " a ** , 60,125,255,255,255 
,255,128,80 

5070 DATA "b",80,102,231,255,252 
,251,102,80 

5080 DATA "€",3,15,59,255,253,60 

6040 DATA '* d ” , 192,240,220,25E , 63 
,60,240,192 

5100 DATA "e",15,0,0,0,0,0,0.0 
5110 DATA "f ", 85, 170,85,170, *5, 1 
70,85,170 

5120 DATA 127,31,0,0,0,0,0,0 

5130 DATA "h",255,255,79,87,63,7 

&140 DATA **i ** , 192, 192,128,128,12 

8,128,128,128 

5150 RETURN 

7000 BEEP .005,0: REM fire 
7010 FOR q«26 TO 7 STEP -1: PRIN 
T INK 6, AT h ,q; ** **: NEXT q 

7020 PRINT AT h,7;" 

7030 IF b-h THEN GO TO 7050 
7040 GO TO 300 

7050 LET c-8: LET sc-so INT <RND 
*10)*2: GO TO 250 

8000 FOP X-12 TO 1 STEP -1: BEEP 
0■005,x: NEXT x: REH death 

8010 LET l-l-l 

8011 PRINT AT b, C - 1; ** 

8015 LET c-8 

8020 IF 1-0 THEN GO TO 8500 
8030 GO TO 250 

8500 IF SC> -hi THEN LET h i-s i. : P 
PINT FLASH 1,AT 7,15;"REKORD’ 
8510 PRINT AT 9,15;"GAME OUEP" 
8520 PRINT AT 11,15; "SCORE-" .. s c 
8530 PRINT AT 13,15;"HI-",hi 
8535 IF sc-hi THEN BEEP 0.1,7: B 
EEP 0.1,4: BEEP 0.1,4: BEEP 0.5, 
9: BEEP 0.6,7 

8540 INPUT r, P R0U IGEN 7 ",w$ 

8550 IF •$<>**n* % AND «*$<>"N" THEN 
GO TO.2 

8999 STOP 

9000 LET c-8: LET l-3 LET h «11: 
LET s C-0 RETURN 


$ 0 * 25 




















Inferno 


Amstrad computeren er i 10- 
bet at det sidste dr blevet utro- 
lig populcer. En at grundene 
er. at den har nogle ganske 
lcekre lydtacilitetter. Her er et 
kort program, der viser. hvor- r 
dan man kan Id nogle sjove / * 
lydettekter trem ved bmg at ' 




10 7 (?) Ciaus Hemdruo Hansen, Computer 

<3 en d e 

20 7 EKS. 1 

30 ENV 1, =0, 1000:SOUND 1, Q, 100, 0, i, 0, 31 
40 7 EKS. 2 

50 ENV 2, =0, 10000: SOUND 1,0, 150, 0, 2, 0, 31 
60 7 EKS. 3 

70 ENV 3, =4, 1000: SOUND 1,0,100,0,3,0,31 
SO 7 EKS. 4 

SO ENV 4, =8, 1000:SOUND 1,0,500,0,4,0,31 
100 7 EKS. 5 

110 ENV 5, =10, 1000: SOUND 1, 0, 500, 0, 5, 0, 31 
120 7 EKS. 6 

130 ENV 6, =11,400: SOUND 1,0,75,0,6,0,31 

140 FOR t=l TO 100 : NEXT 

150 7 EKS. 7 

160 FOR t=l 7C 10 

170 ENV 7, =11,400:SOUND 1, 100, 75,0,7,0,0 
ISO NEXT 
130 7 EKS. 3 

200 ENV 3, =12, 1300: SOUND 1,0, 500, 0, 3, 0, 31 


210 


:ks. 3 


220 ENV 3, =13, 1300:S0UND 1,0,250,0,3,0,31 


230 


! yd-ens 


■4,1 : ENV 2, =0,10000: SO 


Amsort 



AMSTRAD) 


Falgende program er en gan¬ 
ske enkel lille sorteringsrutine. 
Listningen er kort og skulle 
kunne arbejde pd de tleste 
andre hjemmecomputere 
uden de store problemer. 

Claus Hemdrup Hansen 



is-, <01 


10 

7 CP) 

C 1 A 

us h 

01 

20 

CLS 




30 

PRINT" 

Hvo 

r ms 

Vl 

40 

INPUT 

EE 



50 

DIM *$ 

C ee 

) 


60 

FOR t= 

1 TO ee 


70 

PRINT 

"t 7 



SO 

INPUT 

it y n 

;e$C 

t 

30 

NEXT 




100 

FOR t 

t=i 

TO 

0 1 

110 

FOR t 

=2 

TO ee 

120 

IF e* 

Ct) 

<e*C 

t 

130 

NEXT 

t, tt* 


140 

FOR t 

= 1 

TO e 

0 

150 

PRINT 

t" 

> “e* 

( 

160 

IF t/ 

20= 

I NT C 

t 

170 

NEXT 




ISO 

END 




130 

q$ = e$ 

Ct) 

: w$= 

0 

200 

e$Ct) 

= w* 

: C 

t 

210 

RETURN 



220 

7 P4U 

se 



230 

PRINT 




240 

PRINT 

"TRYK 

< 

250 

PRINT 




260 

re*=I 

NKEY* : 


270 

GOTO 

260 




C t)=UPPER$C e$ C t)> 


IF re*=" “ THEN RETURN 
























■ Rumflyvning er et spil, der 
har virkelig god gralik.og er 
meget hurtigt. Spillet er nem- 
lig opbygget i maskinkode 
noesten hele vejen igennem. 
Du skal flyve dit rumskib rundt 
pd skcermen lor at undgd 
UFO'erne, lordi hver gang du 
rammes, bliver UFO'emes ha- 
stighed storre. Tredje gang 
dor du. Det gcelder om at 16 
llest points, naturligvis. 

Space Travel benytter joystick 
port l.D 

Preben Eriksen 


in; 3 : FF -70 RftMT»0 TTt*"0 
I'.riRl IF: OOSUB 


F*" I- 


-PROORRM 

O PRINT"<r;l..R) 

»30000 M I R»3324 . 

1 0031 it: *53000 

100 FOR n-e TO l 6 -STEF- 1 POKE KR + R . D D- 

j • ♦ | 9: NEXT SV — 39 POKE KR + 21 .235 

POKE KR+1 . 160 _ _ _ 

^ ^ > i POKE 5320 1 . O : POKE 7 1 5.235 : POKE 3fc32 

9 . RV POKE 7’07.75 POKE 690. 13 0* 'TO 60000 

200 PR T NT *• C CPSR ME B20 > ** 

V/O 270 PR T NT" R0D > ^ T Ol II_ , SPACE6 > - 

• I IV II" • ' - F ^ 1 ' 

SPR. e ■> •• . ___ 

/// 273 PRINT" I I--n ^->000^ ^ 


274 PRINT" 
2.9 PRINT' 


i_i-n-1_u ^ 7" " " ' ^ 

nROM.SPACE40•PVS OFF> 


R-T0_30 1074 ■ <m < 1 > »750 "> • *X300 FOR H = 0 

TO 30 - POKE 1024+IMT<RND< 1 )*750) .46 NEI T 
7000 FOR 1=1 = 0 TO 16 STEP 2 POKE 704+R.25 

5 ?fN0 T FOR 0 = 0 TO 1 6 : POKE 689+H ■ I MT <. RND < 1 
t>*2>^-l : NEXT : POKE KR+15.80 
POKE KP+11,148 
702O SVS O192 

75O0 IE PEEK<32768> — 1 THEM OOSUB 1O000 
"79 10 OOSUB 28000 POKE KR+9 . FF+50 POKE K 
R-*-7 FF+ 1 00 : POKE. KR+5, FF-2 • FF««FF + BX 
SVS 38672 

792:0 IE FF>120 THEM DX —DX 

7930 IE FE <190 THEM DX-INT<RND< 1 >*4>+2 
7999 POKE KR+30•FF : OOTO 7900 

0000 DATA 1 --0 > 1 60>32 > 141.21.3- 1 S3 * 13- 1-4 
1>20 • 3>00 • 36 - 1 62. 19. 160 > 12© • 141.61.3. 

1-4 1 

000-4 DhTA 60.3.222 - 208.2.208 -44. 189. 176 
^ 2 > 1 97.20© -2.1 ©0 • 1 02 > 2 .2-40.33 > 16. 12. 

1 00.0 

©000 DATA 208.8.222.0.208-40-240,7-208. 
19.29-4.0.20© .- 20© . 1 -4 - 1 73 . 60> 3 >20© >0.1 73 . 

30 1 2 1 DATA 3 > 77 - 16- 20© ■ 141,16.20© > 1 73 .- 60 
, 3,20©. 3 • 7© -61.3.73. 12© • 141.60 • 3.202 >16 
©0 16 DATA 191.173> 1 - 220,201 ■ 247 - 240> 15> 
20 1 > 29 1 > 2-40 > 16, 20 1 ■ 29-4 > 24-0 > 1 7 > 20 1 > 293 

©0 10 DATA 2-40 > 1 0 > 76 > 1 30 > 32 > 2^0 • 0 > 1 1 2 > 20 

8.248>206.0,112.208>243 _ ___ „ ___ _ 

©020 DATA 206 > 1 - 1 12 > 20© > 23© > 230 • 1 > 1 12 > 2 
0© > 233 - 1 73 >0- 112. 141 >0> 20© > 173 > 1 > 1 12 > 

0024 ' DATA 1 > 20© > 173 > 30 > 20© > 201 > 3 > 240> 27 
, 20 1.9 > 2-40 > 23 > 20 1 • 3 - 2-40 - 19.20 1 > 1 7 > 2-40 .- 

©020 DATA 20 1 > 33 > 2-40 > 1 1 > 20 1 > 69 > 2-40 > 7 > 20 


0036 DATA 1 12 > 20© > 2-43> 206 > 1 > 1 12 > 200 - 230. 

> 230 > 1 > 112.20© > 233 > 78> 1 

9000 READ E : IE E—— 1 THEM PETURM___ 
qai a POKE 0192-*-Q>E : G-G+ 1 : OOTO 9000 
10000 RRMT-RAMT+l ’IE RAMT"6 THEM OOSUB 

^000 1 FOR OH" 1 TO 290 : MEXT : 8V"9V-4 : POKE 
96329 > SV : POKE 32760 > 0 * RETURN 

20000 PRINT" (IRVB ON, HONE, CROP 

PfiCE ^°"c^ I ^N E T RE . ■; . « E -r. JR M 

60000 FOR S-U8672 TO 38720 s RtOD T - POKE 
S, T = NEXT s RETURN __ , 

50000 DATA 160, O, 135, 232, 6, I5._>, 23 X, fo, 

O, 203, 267, 173, 263, 6, 16 1, 31, 7, 173, 32, 7 

50001 DATA 161,71, 7, 173, 72, 7, 161* X XX w 7 
173, 112, 7, 161, 151,7, 173, 152, 7, 161, 131,7 

50002 OOTO 144.3,132,7,16 1,231,7,36,96 

60000 POKE 532BO, Os POKE 5326B+21,0= PR\N 

T " < CLP "• ** ___ \\ 

60020 PP T MT " C HOME - PVS • iM - R0T» •• ^ 


6003O PRIMT"<RV 
PREBEM JOHMMV 
F.HM4A PP I MT " • RV”= 


••-HI 
SPfliF-4 


1 29 > 2-40 - 3 > 76 > 1 0-4 > 32 > 1 69 


1-41 . 


©030 DATA 12©>76>184>32>173>0.20©.201 


0© > 240 > 1© > 201 > 26 > 240 > 19 > 173 


©034 DATA 224 > 240 >17. 20 1'. 


4© > 240 > 


6AA50 PRINT"- 
H I = T 1 

60060 PRINT"<8I IL. . -PACEIA • ■‘•-'I 
t PRINT" H I'iH S' ARE ‘ 

600P0 PRIMT "< i RSR MFD4 -CVAN - 

—->PRFSS El T0 F'l AV-r-" 

: FOR 0 = 0 TO . -00 MEXT 
60090 OFT A* IE H * •••El • ** THEM 6O0‘-*M 

60 10O T I <•-="000000 ** SV-35 RAMT-8 POF- E *•. F* 
+2 1.299 PR T MT " < CL F* > " : OOTO 200 

6 1 000 DATA 0.0 - O > O • • O . 0 - 0 • 0,0 • 0 • 0 • 0 • 0 • 

0 . O > 0 > 0.0 • 240 > 0 - 0 > 60 • 1 60 > 0.93 • 1 *r-4 ■ 1 • 

610 10 DATA 90• 240 > ©9 - ©4 - 249> ©7 >64 >213 ■ 9 
5.0.213. 15 0.200 • 60.0.0 • 4© > 0.0 > 0 • 0 • 0 • 11 • 
0.0 w 

61060 DATA 0.0.0 ■ 0.0.0.0 - 0 - O - 0 > 0 > 0 • 0 • 0 • 

°6201O DATA 0 > O . O > p > 0 - 0 • O - 0 • 0 • 0^- 1 « • 0 ' ® n 

4 • O > 1 > ©9 > O > 10.1 70 - 1 2© -41 - 1 93 - 1 60 ■ 1 t>9.89 
62040 DATA 1 04 - 1 70 - 1 70 - 1 6© .- 10.294 > 12© - 0 N 
. 292,0.0.0 - 0■ 0.0 • 0 « 0 • 0 • 0 • 0 • 0 • 0'0 ■ 0' 0 ' °' 

63000”FOR V=0 TO 62 READ F■POKE 12POO+f N 

> E = MEXT __ 

63001 FOR V=0 TO 62 READ E ; POKE 

0 T EOR P=0 TO 7 POKE 2040+P■ 201 NEXT N 
POKE 2040>200 POKE 53?48+28.259 _ 

63020 POKE 9324©-*- 30'2 POKE 53248+37.7 P 
OKE 53248+23•294 POKE 53248+29.254 
63030 POKE 53248+39•12 : RETURN 
I 


12864+VX 


&& 27 
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Race 

Spectacular 


■ Du sidder 1 en racerbil og 
skal S0rge lor, at den holder 
sig pd vejen og kommer hel- 
skindet udenom forhindrin- 
geme. Du skal desuden passe 
pd at kore okonomisk, da der 
ogsd "forsvinder" et liv, hvis 
du korer lor hurtigt, bruger lor 
meget benzin, kprer lor lang- 
somt eller bruger lor meget 
tid. Hvis du korer tilpas okono- 
misk, vil du nd Irem til en slan- 
ge, hvor bilen vil kunne Id 
lyldt benzin og tid pd. 

Bilen styres med tasterne 8 og 
9 (henholdsvis venstre og h 0 j- 
re), bilens lari reguleres via 
gearene (tast 7 lor at komme 
op i gear og tast 6 lor gear 
ned). Ndr bilen er lige ud tor 
slangen skal der trykkes pd 0. 
Pd den overste linie al skcer- 
men, vil du kunne se hvor 
mange biler du har tilbage, 
hvor meget benzin og tid du 
har (averste og nederste streg) 
og hvilket gear du korer i. 1 er 
hurtigst og 4 er langsomt. 
RACER 1, 2 og 3 listningernes 
startadresser er 23296, 24485 
og 27136 og de er pd hen¬ 
holdsvis 246, 1408og 1128 by¬ 
tes. Programmet start es Ira 
adresse 24485. □ Ki 0 lle 


BASIC“PROGRAM TIL INDTASTNING AF MASKINKODE-RUTINERNE 

I REM Dat mr aantngan man akal lndaaatta tal 1 llnla 20 og 70. 

10 LET a-0: LET n-0: LET o-O 

20 LET a*(aaak1nkodana atartadrasaa) 

30 INPUT b: POKE a ( b: print b 
AO LET a>a«i: LET o*o«l: LET n*n*b 
30 LET a*a«l 

60 IF a-12 THEN GO SUB 100 

70 IF o<(antal bytas) THEN GO TO 30 

80 00 SUB 100: IF a*«*n* OR a*»'N' THEN GO TO 30 

70 STOP 

100 PRINT 'Llnlana chackaua- *|n 

110 INPUT 'Chackaua 1 ord«n <J/N>?'|a6 

120 LET p-a: LET a-0: LET n-0 

130 IF ab-'J• OR ab-'j* THEN PRINT 'Ok, jag mr klar til naaata llnla': RETURN 
1AO LET a-a-p: LET o-o-p 

130 PRINT 'Start fra bagyndalaan a« dan llnla.*: RETURN 
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60 61 


0 23A 
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96 48 
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234 13 
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233 3 

233 233 

31 63 

140 0 

239 233 

248 232 

233 234 

31 63 

233 233 

233 233 

63 233 


RACER 2 


1 32 

66 193 

237 184 


24 197 

0 33 

16 231 

0 62 

234 48 


231 193 
0 0 

126 233 

233 233 

233 233 

63 49 

242 247 

239 239 

234 233 

232 248 

127 233 

233 233 

233 233 

233 233 

3 0 

84 69 


229 213 

66 233 

8 229 

37 21 

221 33 

221 34 

33 0 

231 36 

92 211 

36 33 

4 34 

234 3 

104 110 

93 60 


0 0 
124 248 


126 60 
233 233 

233 4 

32 192 


192 128 

233 233 

233 233 

233 233 


203 140 93 

1 32 0 

213 197 1 


241 217 1 

102 221 34 

2 221 34 

6 8 197 

0 193 16 
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16 231 


6 18 
16 231 

221 32 

176 237 

87 8 


24 237 

60 31 

0 193 
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230 14 

33 241 


0 221 

1 221 

4 221 
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33 34 


36 46 
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33 34 


4 33 

24 248 

17 233 

93 193 

183 237 


106 237 

34 36 


21 202 
237 93 


3 119 

36 20 


160 221 
13 221 

4 221 

230 31 


123 198 

33 34 


36 46 
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23 111 

126 33 
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123 198 

33 34 

34 126 


0 34 

23 111 

24 33 

33 34 

24 33 

0 34 
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16 231 
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109 40 

233 90 

7 229 

32 0 
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234 203 
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91 
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100 'Toneopkald USX 

120 ’Dette program foretager automatisk 
opkald pA en telefon v.hj.a tonekoder. S 
k ru passende op for lyden og hold telefo 
nrdrot hen til hbjttaleren. 

130 ’Programmet kan b-'uges pA to mAder: 
Dels kan man taste et nummer direkte - o 
g dels kan man opbygge en CprimitivD dat 
abase med 100 poster. Man trykker da f.e 
ks "12" og fAr kaldt det nummer som stAr 
i register 12. 

140 ’NAr mask men venter pA input kan ma 
n gd re t re ting: 

150 '11 Indtast "0" for at oprette et ny 
t nummer. 

160 ’2) Indtast • , r-- ,, 100" for at kalde e 
t nummer fra tabellen. 

120 * 3D Indtast et belt telefonnummer og 
fA det opkaldt. 

180 ’Bemark at subrut me 1000 er general 
og kan bruges i andre programmer. 

190 * 

200 ’A=Lav tone. B=H6j tone 

210 *UA=Uolumen af A. UB=Uolumen af B 

220 UA=8:UB~10 

230 SOUND 2.63:SOUND 8.UA:S0UND 9.UB:S0U 
NO 10.0:SCREEN,.0 
240 DIM TSC1.1001 
250 CLS 


260 INPUT NS:IF UALCN$1<>INT(UAL(NS)) GO 
TO 250 

220 IF NS-"0" GOTO 340 

280 IF UALCNS)>0 AND UALCNS)<=100 GOTO 4 
10 

290 PRINT .-PRINT .-PRINT "Gor telefonen kla 
r - tryk RETURN- 

295 BS=INKEYS:IF BS="" GOTO 293' 

298 PRINT :f*R INT "Ringer..." 

300 FOR J=1 TO LENCNS) 

310 A$=MIOSCNS.J.1) 

320 GOSUB 1000 
330 NEXT:GOTO 250 

340 PRINT:PRINT: INPUT "Re gis t e rnumme r“ ;N 

345 IF NOINTCN) OR N< 1 OR N>100 GOTO 34 
0 

350 INPUT "Tekst ":TS(0.N) 

360 INPUT ' Telefonnummer ":TS(1.N) 

320 PRINTllNPUT "Skal der rmges op (J^N 
3" :ns 

380 IF NS="J" THEN NS=TSC1.N):GOTO 290 
390 IF NS="N“ GOTO 250 
400 GOTO 320 

410 PRINT:PRINT:PRINT TSC 0,UAL CNS J D 
420 PRINT:PRINT TSC1.UAL(NS]3 
430 NS = TSC1.UALCNS)):GOTO 290 
1000 ’Denne subrutine udsender tonekoden 

1010 ’Input er AS som kan ndeholde "0"- 
"9". 


1020 IF AS = "1" THEN R0=160:R2=93: 
30 

1030 IF AS= *'2" THEN R0=160:R2=84 : 

30 

1040 IF A$="3" THEN R0=160:R2=26: 
30 

1050 IF AS="4" THEN R0=145:R2=93: 
30 

1060 IF AS="5" THEN R0=145:R2=84: 
30 

1020 IF A$="6” THEN R0=145:R2=26: 
30 

1080 IF AS="2“ THEN R0=131:R2=93: 

30 

1090 IF AS= "8' THEN R0=131:R2=84: 
30 

1100 IF A#="9" THEN R0=131:R2=26: 
30 

1110 IF A$="0" THEN R0=119:R2=84: 
30 

1120 RETURN 

1130 SOUND 0.R0:SOUND 2.R2:SOUND 

1140 ’Tonens varighed 

1150 FOR 1=1 TO 100:NEXT 

1160 SOUND 2.63 

1120 ’Interval mellem tonerne 

1180 FOR 1=1 TO 50:NEXT 

1190 RETURN 
























Amdata 


For et stykke tid siden bragle 
vi et program til Commodore 
64, der lavede data karakte- 
rer i stedet lor de normale. Her 
er en Amstrad udgave. ka- 
raktererne er pcenest i MODE 
1, og iscer med lys-bla skritt 
(INK 1,11 eller INK 1,2). 

Carsten Lynge Jensen 




SYMBOL AFTER 33 
SYMBOL 33, 16, 16, 16, 24, 24, 0,24 
SYMBOL 34,72, 108, 108 
SYMBOL 35, 72, 72, 254,72,254,108, 108 
SYMBOL 36,24,126,64,126,2,126,24 
SYMBOL 37,227, 166,236,24,55, 101, 199 
SYMBOL 38,56,40,56,118,92,92,118 
SYMBOL 39,16,24,24 
SYMBOL 40, 6, 28, 48, 32,48, 28,6 
SYMBOL 41,36,56, 12,4, 12,56,96 
SYMBOL 42, 16,34,56,254,56,84,16 
SYMBOL 43,0,16,16,124,16,16 
SYMBOL 44, 0, 0,0,0,0, 16, 24, 24 
SYMBOL 45,0,0,0,60 
SYMBOL 46,0,0,0,0,0,16,24 
SYMBOL 47,4, 12, 8, 24, 16, 48, 32 
SYMBOL 48,126,66,66,98, 98,38, 126 
SYMBOL 49,24,24,3,8,3,28,28 
SYMBOL 50, 126,2,2,126, 64, 70, 126 
SYMBOL 51,126,2,2,62,6,6,126 
SYMBOL 52, 64,64,64, 70,126,6,6 
SYMBOL 53, 126,64,64, 126,2,93, 126 
SYMBOL 54, 124,68,64, 126,70,70, 126 
SYMBOL 55,126,66,2,14,6,6,6 
SYMBOL 56, 126,66,66, 126,98,98, 126 
SYMBOL 57,126,66,66,126,6,6,6 
SYMBOL 58,0,0,16,24,0,16,24 
SYMBOL 59,0,0, 16,24,0, 16, 24,24 
SYMBOL 60,2, 14, 56, 96, 56, 14,2 
SYMBOL 61,0,0,60,0,60 
SYMBOL 62,64,112,24,6,24,112,64 
SYMBOL 63,126,66,2,30,24,0,24 
SYMBOL 64, 126,72,72, 126,104,104,110 
SYMBOL 65, 62, 34,34, 126, 38, 38,98 
SYMBOL 66, 124,68,68, 126,98,98, 126 
SYMBOL 67,126,66,64,64,96,98,126 
SYMBOL 68,124,66,66,66,98,98,124 
SYMBOL 69,126,64,64,124,96,96,126 
SYMBOL 70,126,64,64,120,96,96,96 
SYMBOL 71,126,66,64,64,102,98,126 
SYMBOL 72,66,66,66,126,38,93,98 
SYMBOL 73, 24, 0, 16, 16, 24, 24, 24 
SYMBOL 74,2,2,2,2,6,70,126 
SYMBOL 75,68,68,76,126,98,98,98 
SYMBOL 76, 64, 64, 64, 64,36,93, 126 
SYMBOL 77, 126, 74, 74, 66, 98, 98, 98 
SYMBOL 73, 126,66,66,66,38,33,38 


•f 


t 


SYMBOL 79, 126,66,66,66,66, 98, 126 
SYMBOL 80, 126,66,66, 126,96,96,96 
SYMBOL 31, 126,66,66,66,78, 78, 126 
SYMBOL 32,124,68,68,126,98,98,98 
SYMBOL 83,126,66,64,126,2,9S,126 
SYMBOL 84,126,16,16,16,24,24,24 
SYMBOL 85, 66, 66, 66, 66, 98, 98, 126 
SYMBOL 36, 66, 66, 66, 66, 98, 102, 60 
SYMBOL 37, 66, 66, 66, 66, 106, 110, 60 
SYMBOL 88,66,102,60,24,60,102,66 
SYMBOL 39, 66, 66, 66, 126, 24, 24, 24 
SYMBOL 90, 126,2, 6, 12, 24, 48, 126 
SYMBOL 91,126,70,73,90, 114,98, 126 
SYMBOL 92,32,48, 16,24,8, 12, 4 
SYMBOL 93,60,0, 126,66, 126,38,98 
SYMBOL 96,16, 24,3,12,4 
SYMBOL 97,0,O,124,4,124,76, 124 
SYMBOL 94, 16, 56, 124, 16, 16, 56, 56 
SYMBOL 93,96,96, i24,68,68, 100, 124 
SYMBOL 99, 0,0, 124,64, 64, 96, 124 
SYMBOL 100,12,12,124,68,63,100,124 
SYMBOL 101,0,0, 124,68, 124,96, 124 
SYMBOL 102,60,36,32,112,96,96,96 
SYMBOL 103,0,0,124,63,68, 124, 12, 124 
SYMBOL 104,64,64,124,68,68,100,100 
SYMBOL 105,0,24,0, 16, 16, 24,24 
SYMBOL 106,0,12,0,4,4,4,76,124 
SYMBOL 107,64,72,72, 124,68, 100, 100 
SYMBOL 108,16,16,16,16,24,24,24 
SYMBOL 109,0,0, 126,74,74, 106, 106 
SYMBOL 110,0,0,124, 63, 68, 100, 100 
SYMBOL 111,0, 0, 124, 68, 68, 100,124 
SYMBOL 112, 0, 0, 124,63, 100, 124,96,96 
SYMBOL 113,0, 0, 124, 68, 76, 124, 12, 12 
SYMBOL 114,0,0,124,64,64,96,96 
SYMBOL 115, 0, 0, 124, 64, 124, 12, 124 
SYMBOL 116,32,32, 112,32,32,36, 60 
SYMBOL 117,0,0,63,63,68,100,124 
SYMBOL 118,0,0,68,63,63,108,56 
SYMBOL 119,0,0,66,66,74,106,126 
SYMBOL 120,0,0,108,56,56,108,68 
SYMBOL 121,0,0,68,68, 100, 124,4, 124 
SYMBOL 122,0,0,124,12,24,4S,124 
SYMBOL 123,0, 0, 124, 76, 68, 100, 124 
SYMBOL 124,0,0,124,34,32,76,118 
SYMBOL 125,56,0, 124,4, 124, 76, 124 
0 SYMBOL 163,124,68,64,240,96,102,25 
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Denne ubirdssimulator til Me- 
motech er mclske det bedste 
program, der er blevet trykt til 
en MTX i SOFT Det tylder 8.5K 
og har tin grafik 
Du sty ret med talgende taster 
A = Farten op 
S=Farten ned. 

R = Klar til torpedoatfyring, sig- 
tekomop 

1-6=Data tor destroyere 1-6. 
Cursor venstre/hojre=drej 


venstremajre 

Cursor op/nea=dy k ud/ind 
Home=Altyr torpedo 
P6 displaye* serdu talgende 
Batt = Batteriernes tilstand 
Fuel=Broendsto! beholdning 
Knot = Hastighed i knob 
Depth=Dybde 
Oxygen=Lull beholdning 
Base = Alstand tra ukxld til ba¬ 
se 

Csr=Kurs 


Depth Warning=Advarsel 
ja/nej 

Ved angreb ser du: 
Dist=Distancen tra dig til de¬ 
stroy eren 

Csr = Destroy erens kurs 
Husk at stoppe. nirr Base=0 
Basen ligger p<S 98 meters 
dybde HvisCSR=Oog Depth 
= 98 og Base = 200. tdr du et 
llot 3-D billede Dyk ikke dy- 




bere end 98 meter! 

For at vinde skal alle destroy¬ 
ere skydes ned. og du kan ik¬ 
ke skyde hvis du ligger dybe- 
reend IOmeter 
N6r din CSR er lig destroye- 
rens CSR kan du ramme den 
Hvis dist bliver under 100 ram- 
mes du sikkert al en dyb- 
vandsbombe 
God tornajelse □ 

Simon Bennick 



10 LET USt-"UBADSIMULATOR": RAND lOOO* CRVS 6 . I.21.19.11.5.32s CRVS 2.1.10.6.13. 
3.32: VS 2« RARER 15: CLS i VS 4 

12 LET SC-0: LET D-O: DIM A*<16.20).C(16)I FOR A-l TO 13: LET At<A>-"UBADSIMULAT 

OR “i LET C(A>■1OOOO: NEXT : LET HI-0: DIM Zt<300> 

14 LET Zt-" DU ER KAPTAJN RA EN UBAD OG ER VED AT VENDE HJEM FR 

A RUSLAND MED NOGLE TOR HEMMELIGE TEGNINGER OVER RUSLANDS NYESTE FLADEBASE" 

13 LET Zt-Zt>". RUSSERNE HAR OPDAGET DIG OG SENDER 6 DESTROYER EFTER DIG- 

16 LET Zt-Zt>". JOYSTICK I PORT ’R’. DU SL AL FA ’CSR’<KURSEN> NED RA O. BASE - ER 
DISTANCEN TIL BASEN. HASTIGHEDEN STYRES MED ’A’.’S’." 

17 LET Zt«Zt>" OR OG NED SAMT KURSEN STYRES MED JOYSTICKET. HVIS ’DEPTH WARNING 
BLIVER ROD MA DU IKKE GA BARE I M. LENGERE NED. 

IB GOTO 330 

19 LET SI-O: LET 1-4: LET F-12: LET G-INT<RND«8000>>20000: LET DW-O: LET D3-0: L 
ET D4-0: LET D3-0: LET D6-0: LET D7-0: LET DB-0: LET D9-0: LET D10-0 

20 LET T-0: LET B-INT<RND»lOOO)>1000: LET C-INTtRND«70>>361: LET E-INT(RND44000 
♦12000: LET K-10: LET H-20: LET O-INT(RND49000)>60000: LET SC-0 

30 LET ATT-O: LET DES-O: CTLSPR 2.0: CTLSRR 1.1 
100 REM 

103 CTLSPR 6.0: GENRAT 3.2.O.0.0.O.O.O.0.0 

107 CTLSRR 6.3: FOR UX-4 TO 3: FOR XU-4 TO 7: GENPAT XU.UX.0.O.0.0.O.0.O.O: NEXT 
l NEXT 

106 GENRAT 4.6.6,2.3.2,31.63.63.31: GENPAT 6.6.0.0.128.120.232.254.234.252: GENR 
AT 4,3,0.2,121.24.233.122.33.31: GENRAT 6.3,0.12.18.162.233.170.84.248 

109 6ENRAT 3.6.0, 0, 0, 0, 0. 0. O. O: GENRAT 7.6.0. 0. O. O. 0. O. O. Ol GENRAT 3. 3. 0. O. O. O. 0 
,0,0,0: GENRAT 7.3,0,0,0,0,0.0.0,0 

110 GENRAT 7.0.0,0,32.0,32.0,0.0: GENRAT 4.0.0,O,O.0,O,O.0.0: GENPAT 3.0.0.0.0.0 
,0,0,0,0: GENPAT 6,0,0,0,0.0,0,0.0.0 

111 GENRAT 4,4,0,0,0,233,0,0,0,0 

113 GENPAT 4,3,0,0,12,28,0,0,0,0 

114 GENRAT 4,10,66.33,16.28,43,74,8,8: GENRAT 3.10,169.66.149.72.34.137.2.33: GE 
NRAT 6,10,8,16,161,146,204,168,144.146: GENRAT 7,10.163.72,37,146,36,82.40.84 
113 GOSUB 21200 

118 RETURN 

120 CTLSRR 2.31: CTI SPR 6.3: SPRITE 1.0.39.42.0.0,4 
122 SPRITE 2. T». 39.26.0,0.4 
124 SPRITE 3.0.39.178.0.0.4 
126 SPRITE 4.0.39,146.0.0.4 


128 SPRITE 3.0.39.130.0.0.4: SPRITE 6.0,143.42.0,0,4: SPRITE 7,0,143.34,0,0,4: S 
PRITE 8.0.143,26,0,0,4: SPRITE 9,0.47.98.0,0.4: SPRITE 10,0,33.82,0,0.4 
130 GENPAT 0.96.233,233.255,233,233,253.233,235 

133 GENPAT 4.1.16.16.16,16,36.0,0,0: GENPAT 3,1,O,0.0.0,0,0.0,0: GENPAT 6,1.0,0, 
0.0,0.0,0,0: GENRAT 7.1,0,0,0,0,0,0,0.0 
190 RETURN 

201 IF D4-1 THEN RETURN ELSE GOTO 16000 

202 IF D3-1 THEN RETURN ELSE GOTO 16000 

203 IF D6-1 THEN RETURN ELSE GOTO 16000 

204 IF D7-1 THEN RETURN ELSE GOTO 16000 

203 IF DB-1 THEN RETURN ELSE GOTO 16000 

207 IF D9-1 THEN RETURN ELSE GOTO 16000 

208 IF DIO-1 THEN RETURN ELSE GOTO 16000 
210 PARER 13: INK I: CLS 

213 CSR 23.2* PRINT "DEPTH": CSR 23.3: PRINT "WARNING": CSR 0.2: PRINT - BATT" 
220 CSR 0.6: PRINT " FUEL": CSR 0.8: PRINT " KNOT" 

230 CSR 0.12: PRINT " DEPTH": CSR 0.14: PRINT " OXYGEN" 

240 CSR 0.19: PRINT " BASE": CSR 0.21: PRINT " CRS." 

260 CSR 11.19: PRINT "TORPEDO- 

263 CSR 11.20: PRINT “READY": CSR 11.21: PRINT “FIRE*' 

270 PLOT 0.156: DRAW 104 
280 PLOT 0.110: DRAW 82 
290 PLOT 0.36: DRAW 114 
293 PLOT 202.110: DRAW 33 
300 LINE 82.0.82.36 
310 LINE 166.0.166.34 
313 CIRCLE 142.110.60 

320 CSR 23.4: INK F; PRINT .CSR 25.5: PRINT .IN* I: IN* F-6: 

CSR 19.20: PRINT CSR 19.21: PRINT INK I 

323 VS 6: PAPER 6: COLOUR 4.4: INK 15: CLS : VS 4 
330 RETURN 

330 VS 4: GOSUB 19: GOSUB 13300: GOSUB 120: COLOUR 4.4: GOSUB 210 
360 CLOC* "OOO‘X‘0" 

915 IF INKEYt*. "R" AND ATT-1 AND H< 11 AND T>0 AND B 200 THEN LET SI-1: GOSUB 112 
00 

917 IF ASC <iNKEYt)-11 THEN LET H-H-l: IF H—1 THEN LET H-O 
920 IF ASC(INKEYt)—10 THEN LET H-H>1 
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925 IF ASC(INKEY*>-8 AND K>0 THEN LET C-C-(INT(RND*3)♦!>* IF C<-9 THEN LET C— 

*9 

927 IF ASC<INKEY*)-26 AND SI-I THEN GOSUB 18000 

930 IF ASC( INKEY*)-25 AND K>0 THEN LET C-O (INT <RND*3) -4-1 > t IF 0999 THEN LET C 
-999 

935 IF INKEY*-’A" THEN LET K-K+l* IF K-26 THEN LET K-25 
937 IF INKEY*-"S" THEN LET K-K-l: IF K—1 THEN LET K-0 
955 IF SI-1 AND H>10 THEN GOSUB 11300 
960 LET G-G*K-26* LET E-E-Ks LET 0-0-(H*2>, LET B-B-K 

970 IF DW-0 AND H-98 THEN LET DW-li CSR 23.4: INK 6s PRINT " ’ ’ *.* CSR 25.5: 

PRINT ..i INK 4: GOSUB 11000 

980 IF DW-1 AND H-99 THEN LET T*-" KNUST AF TRYKKET": GOTO 14000 

990 IF DM-1 AND H-97 THEN INK F: CSR 25.4: PRINT ..: CSR 25.5: PRINT "' ’ 

.: INK I: LET DW-0 

995 IF B>200 THEN GOTO 1100 

1000 IF C-0 AND B<200 AND B>170 AND H-98 THEN INK 1: GOSUB 14500: LET SC-SC+30O 
£>: LET D3-1: INK 4 

1010 IF C-0 AND B<171 AND B>140 AND H-98 THEN GOSUB 201: INK 1: GOSUB 14550: LE 
T SC-SC*3000: LET D4-1: INK 4 

1020 IF C-0 HND B<141 AND B>110 AND H-98 THEN GOSUB 202* INK 1: GOSUB 14600: LE 
T SC-SC+3000* LET D5-1: INK 4 

1030 IF C-0 AND Bail AND B >80 AND H-98 THEN GOSUB 203: INK 1: GOSUB 14650: LET 
SC-SC+3000* LET D6-1: INK 4 

1040 IF B'81 AND COO AND H-98 THEN LET DE-300: FOR NE-2 TO 15: COLOUR 4.NE: SO 
UND 3.4.NE>15-(2*NE): FOR JE-0 TO DE: NEXT JE: LET DE-DE-30: NEXT NE: GOTO 18800 
1050 IF C-O AND B<81 AND B>50 AND H-98 THEN GOSUB 204: INK 1: GOSUB 14680: LET 
SC"SC-*3O0O: LET D7-1* INK 4 5 

1060 IF C-0 AND B<51 AND B>20 AND H-98 THEN GOSUB 205* INK 1: GOSUB 14700* LET 
SC-SC+3O0O, LET D8-1: INK 4 

1070 IF C-0 AND B<21 AND B>4 AND H-98 THEN GOSUB 207: INK 1: GOSUB 14720* LET S 
C-SC+30OO: LET D9-1* INK 4 

1080 IF C-0 AND B<5 AND H-98 THEN GOSUB 208* INK 1: GOSUB 14750: LET SC-SC+3000 
: LET DIO-1: INK 4 

1100 IF TIME*-“000030" AND B 600 THEN GOTO 17000 
1110 IF ATT-1 THEN GOTO 6000 
1120 GOTO 9960 

6000 LET DD1-DD1-K: LET DD2-DD2-K* LET DD3-DD3-K* LET DD4-DD4-) : LET DD3-DD5- 
LET DD6-DD6-K 

6010 LET W1-C-DC1: LET W2-C-DC2: LET M3-C-DC3* LET W4-C-DC4: LET W5-C-DC5: LET *. 
6-C-DC6 

6450 LET KN*-INKEY* 

6460 IF HN*-“1“ THEN LET DES-1: VS 6: CLS * VS 4 

6470 IF HN*-"2" THEN LET DES-2: VS 6: CLS : VS 4 

6480 IF HN*-"3" THEN LET DES-3* VS 6: CLS * VS 4 

6490 IF HN*-"4" THEN LET DES-4: VS 6: CLS : VS 4 

6492 IF HN*-"5" THEN LET DES-3* VS 6: CLS * VS 4 

6494 IF HN«-"6" THEN LET DES-6* VS 6: CLS * VS 4 

6500 VS 6* IF DES-1 AND ADI-1 THEN CSR 0.0: PRINT "DESTROYER l“* CSR 0.2: PRINT 
“DIST. ":DD1: PRINT "CSR. “:DC1 

6510 IF DES-2 AND AD2-1 THEN CSR 0.0* PRINT "DESTROYER 2": CSR 0.2* PRINT “DIST 
. ":DD2: PRINT "CSR. “«DC2 

6520 IF DES-3 AND AD3-1 THEN CSR 0.0* PRINT "DESTROYER 3": CSR 0.2: PRINT "DIST 
. “IDD3: PRINT "CSR. “* DC3 

6530 IF DES-4 AND AD4-1 THEN CSR 0.0* PRINT "DESTROYER 4": CSR 0.2* PRINT “DIST 
. "* DD4: PRINT "CSR. “*DC4 

6540 IF DES-3 AND ADS-1 THEN CSR 0.0* PRINT "DESTROYER 3": CSR 0.2* PRINT “DIST 
. ":DD5: PRINT "CSR. “* DCS 

6350 IF DES-6 AND AD6-1 THEN CSR 0.0* PRINT "DESTROYER 6"* CSR 0.2: PRINT “DIST 
. “iDD6: PRINT "CSR. "*DC6 
9000 VS 4 

9700 IF DD1<lOO AND ADI-l THEN GOTO 10000 

9710 IF DD2<100 AND AD2-1 THEN GOTO lOOOO 

9720 IF DD3<100 AND AD3-1 THEN GOTO lOOOO 

9730 IF DD4<100 AND AD4-1 THEN GOTO lOOOO 

9740 IF DD3C100 AND AD3-1 THEN GOTO lOOOO 

9730 IF DD6<100 AND AD6-1 THEN GOTO lOOOO 

9800 IF ADI-1 AND W1<L AND Wl>-L THEN SPRITE 21.3.142-W1.110.0.0,1 ELSE SPRITE 
21,3.300.300.0,0,0 

9810 IF AD2-1 AND W2<L AND W2>-L THEN SPRITE 22.3,142-W2.110.0,O.1 ELSE SPRITE 
22,3,300,300,0,0.0 

9820 IF AD3-1 AND WJ<L AND W3>-L THEN SPRITE 23,3.142-W3.110,O.O.1 ELSE SPRITE 
23,3,300,300,0.0,6 

9830 IF AD4-1 AND W4<L AND W4>-L THEN SPRITE 24.3.I42-W4,110.0.0.1 ELSE SPRITE 
24,3,300,300,0,0.0 

9840 IF W3<L AND W3>-L AND AD3-1 THEN SPRITE 25.3.142-W3.110,O.O,1 ELSE SPRITE 
25,3,300,300,0.0,0 

9830 IF W6<L AND W6>-L AND AD6-1 THEN SPRITE 26.3.142-W6.110.0,0.1 ELSE SPRITE 
26,3.300.300,0,0,0 

9960 CSR 11-(LEN <STR*(G))),2* PRINT G* CSR U-<LEN <STR*(E>>).6: PRINT E* CSR 8 
-<LEN <STR*(K))),8* PRINT K* CSR 9-<LEN <STR*<H))).12* PRINT H 

9970 CSR 6-(LEN (STR*(0>)).13: PRINT O* CSR 10-(LEN (STR*(B)>).19: PRINT B: CSR 
18,19i PRINT Ti CSR 10-(LEN (STR*<C>>).21» PRINT C 
9975 IF B-0 AND C-0 AND K-O THEN GOTO 11310 

9980 IF 0<0 THEN LET T*-" OXYGEN MANGEL"* GOTO 14000 

9983 IF G<0 THEN LET T*-“ BATTERI MANGEL": GOTO 14000 

9990 IF B<0 THEN LET T*-" DU SEJLEDE FORBI BASEN": GOTO 14000 
9995 IF E<0 THEN LET T*-“ BRUNDSTOF MANGEL"* GOTO 14000 

9999 GOTO 913 

10000 LET T*-“ RAMT AF EN DYBVANDSBOMBE": GOTO 14000 

10010 LET 6-G-10* LET E-E-20* CSR 3,2* PRINT G* CSR 3.6* PRINT Et RETURN 
11000 FOR BK-1 TO 2: FOR AK-10 TO 300 STEP 2* SOUND O.AKtl.S.IS* SOUND 1.AK.13* 
BOUND 2,AK•3,13: NEXT : NEXT i SOUND 0,0,0* SOUND 1,0.0* SOUND 2.0.0: RETURN 
11200 INK 6: CIRCLE 142.110,18* LINE 134.110.114.110* J.INE 150.110,170.110* LINE 
142,110,142.82* LINE 142.118.142.138* INK I 

11205 CSR'19,20* INK F* PRINT . INK I 

11210 RETURN 

11300 LET SI-0* GOSUB 16000 

11303 CSR 19.20* INK 6* PRINT “•“» INK I 

11310 RETURN 

11500 RETURN 

11310 CTLSPR 2.0* PAPER 4* INK 13* CLS * LET SC-SC*E*0*6000-» (T*SOOO> * CSR 1.12* 
PRINT "VEL UDF0RT MISSION. P0INT"*SC 

11320 RESTORE 21300* FOR XU-1 TO 43: READ K.L* SOUND 2.((4000000)/(32*K)).13* FO 
R Y-0 TO L*20i NEXT * SOUND 2,0,0* NEXT * SOUND 2.0,0 
11330 GOTO 12000 

12000 PAPER 13* COLOUR 4.13* INK 7* CLS 

12001 CSR 9.0* PRINT CHR*(131)«* FOR XC-1 TO 13* PRINT CHR*(130>*: NEXT * PRINT 
CHR*(132)* CSR 9.1* PRINT CHR*(133>*: INK 10 

12003 PRINT "TODAYS TOP 13"*: INK 7* PRINT CHR*(133) 

12003 CSR 9.2* PRINT CHR*(133)|* FOR XC-1 TO 13* PRINT CHR*(130)** NEXT : PRINT 
CHR*(134) 

12010 FOR X-l TO 15* IF SC>C(X> THEN GOTO 12030 
12020 NEXT X: GOTO 12030 

12030 INK 12* INPUT “ ENTER NAME PLEASE ":E*: FOR C-3 TO 3* CSR O.C: PRINT “ 

■» NEXT 

12040 FOR N-14 TO X STEP -1* LET A*(N*1)-A*(N)* LET C(N»l)-C(N)t NEXT N: LET A*( 
X)-" “* LET A*(X)-LEFT*(E*.20): LET C(X)-SC 

12030 FOR X-13 TO 1 STEP -1* CSR 26,X»3* INK 12* PRINT C(X>* NEXT * FOR X-13 TO 

1 STEP -1* INK 6: CSR 3.X*3* PRINT A*(X)* NEXT 

12060 FOR X-13 TO 1 STEP -1: INK 4* CSR O.X+3* PRINT X: NEXT 

12999 CSR 10.22* PRINT "PRESS ANY KEY" 

13000 FOR XU-1 TO 3000* IF INKEY*<>"" THEN GOTO 330 ELSE NEXT : GOTO 330 
13500 VS 4* PAPER 5* COLOUR 4.1* CLS * INK 4* FOR UX-0 TO 233* PLOT UX.86*SIN(UX 
): NEXT 

13310 CTLSPR 2.3* CTLSPR 6.3* SPRITE 1.3.36.83.0.0,10* SPRITE 2.3.40.83.0.0.1 
13315 SOUND 3.73.15: FOR UX-270 TO 214 STEP -1* SPRITE 3.6.UX.76.O.0.1: PAUSE 90 
* NEXT : SOUND 3.0,0 

13317 CSR 9.10* INK 3: PRINT ...* GOSUB 21000 

13320 SPRITE 4,4,220,74,0,0,1* SOUND 3.4.7* FOR UX-220 TO 64 STEP -1* MVSPR 1.4. 
4: PAUSE 10* NEXT * SOUND 3.0.0 
13322 ADJSPR 2,1.0* ADJSPR 2.4.0 

13325 LET DE-300* FOR NE-2 TO 13* ADJSPR 1.2.NE: SOUND 3.4.NE*13-(2SNE> t FOR JE- 
0 TO DEs NEXT JE* LET DE-DE-30* NEXT NE 

13330 RESTORE 21100* FOR UX-0 TO 101* READ XU* IF XU-0 THEN RESTORE 21100 ELSE 
MVSPR 1.2.2: ADJSPR 1.2.XU 

13340 NEXT UX* ADJSPR 1.2.0* SOUND 3.73.13* FOR UX-0 TO 220* MVSPR 1.3.4* PAUSE 
30: NEXT * SOUND 3.0,0 

13999 RETURN 

14000 CTLSPR 2.0* FOR DW-0 TO 191: PLOT l.DWt DRAW 254* NEXT * PAPER I* INK 13* 
CLS * CSR 0.12* PRINT T*: PAUSE 8000* GOTO 12000 

14300 IF D3-1 THEN RETURN 

14301 LINE 133.110.133.117* LINE 143.110.143.117* LINE 135.117.145.117 


14510 LINE 133,110,135.110* LINE 145.110,147.110* LINE 133.110.133.119* LINE 147 
,110.147.117 

14520 LINE 135.119.145.119* LINE 133.119.155.141: LINE 147.118.166.141* LINE 155 
,141.165.141 

14530 LINE 147.110.163.131* LINE 163.131.166.141 
14540 RETURN 

14330 IF D4-1 THEN RETURN 

14531 LINE 130.109.130.121* LINE 145.109.145.121* LINE 130.121.143.121 

14360 LINE 126.109.126.123* LINE 149.109.149.123* LINE 126.123.149.125: LINE 126 
.109.130.109* LINE 145.109.149.109 

14570 LINE 126.125.148.139* LINE 149.123.171.139* LINE 148.139.171.139* LINE 149 
,109.171.144: LINE 171.144.171.139 
14390 RETURN 

14600 IF D3-1 THEN RETURN ELSE LINE 121.110.121.132* LINE 131.110.151.132* LI 
NE 121,132.131.132 

14610 LINE 115.110.115.136* LINE 137.110.137.136* LINE 113.136.137.136* LINE 113 
.110,121,110* LINE 157.110.132.110 

14620 LINE 113.136.146.167* LINE 137.136.173.134* LINE 137.110.173.129 
14630 RETURN 

14630 IF D6-1 THEN RETURN ELSE INK 1* LINE 103.83.103.133* LINE 179.83.I79.13 
3* LINE 97.83.97.141* LINE 187.83.187.141 

14660 LINE 97.83.103.83* LINE 179.83.187,83* LINE 103,133.179.133* LINE 97.141.1 
87.141 

14670 LINE 97.141.118.161 
14673 RETURN 

14680 IF D7-1 THEN RETURN ELSE LINE 104.70.104.130* LINE 104.70,180.70* LINE 
180,70,180.150* LINE 180.130.104.130 

14685 FOR UX-100 TO 119* PLOT 132.UX* DRAW 20* NEXT * LINE 104.70.132.100* LINE 
180,70,132.100* LINE 104.130,132.120* LINE 180.130.132.120 
14690 RETURN 

14700 IF D8-1 THEN RETURN ELSE LINE 104.70.104.150* LINE 104,70.180.70* LINE 

180.70.180.130* LINE 104,130,180.130 

14703 FOR UX-93 TO 124* PLOT 127.UX* DRAW 30* NEXT 

14710 LINE 104,70,127.95* LINE 104.150.127,124* LINE 180.70.137.95* LINE 180.130 
,137,124 
14713 RETURN 

14720 IF D9-1 THEN RETURN 

14723 FOR UX-90 TO 129* PLOT 122.UX* DRAW 40* NEXT 

14730 LINE 104.70,122,90* LINE 104,130,122.129* LINE 180.70.162.90* LINE 180.130 
.162.129* INK 13* LINE 104,70.180.70 
14740 RETURN 

14750 IF DIO-1 THEN RETURN ELSE FOR UX-70 TO ISO* LINE 104.UX.180.UX* NEXT * 
RETURN 

13000 GOTO 15000 

16000 CSR 14.3* PRINT • "l CSR 13.4* PRINT " “* CSR 12.3* PRINT ■ 

"* CSR 11.6: PRINT " 

16010 FOR XY-7 TO 14* CSR 11.XY* PRINT " “l NEXT * INK 4* CIRCLE 142 

.110.60* RETURN 

17000 LET DD1-300* LET DCI-C-47* LET DD2-320* LET DC2-C-10* LET DD3-300* LET DC3 

—C-127* LET DD4-330* LET DC4-C-197* LET ATT-1 

17010 LET DD5-340* LET DCS-C-81* LET DD6-330: LET DC6-C-163 

17020 LET ADI-1* LET AD2-1* LET AD3-1* LET AD4-1* LET AD3-1* LET AD6-1* LET AD7- 
1* LET L-43 

17030 INK 6* FOR XU-0 TO 4* SOUND 3.0,0* CSR 25,13* PRINT CSR 23.14* 

PRINT . CSR 25.15* PRINT .••’•"« PAUSE 300 

17040 SOUND 3.1.13* CSR 25.13* PRINT “ATTACK “* CSR 25.14* PRINT “WAVE IN"* CSR 
23.15* PRINT "RANGE “* PAUSE 300* NEXT 
17060 SOUND 3,0,0* INK 1 
17090 GOTO 1110 

18000 SOUND 3.4.7* FOR UX-44 TO lOO STEP .3* SPRITE 19,1,131.UX,0,0,1 * NEXT * SO 
UND 3,0,0* SPRITE 19,1,300,300,0,0,0* LET T-T-l 

18010 IF Wl-0 OR W2-0 OR W3-0 OR W4-0 OR W3-0 OR W6-0 THEN GOTO 18020 ELSE GOS 
UB 11300* RETURN 

18020 IF Wl-0 AND ADI-1 THEN LET AD1-0* LET SC-SCM5O0* SPRITE 21,3.300,300,0,0 
,0* GOTO 18500 

18030 IF W2-0 AND AD2-1 THEN LET AD2-0* LET SC-SCMSOO* SPRITE 22.3,300,300.0,0 
.0* GOTO 18300 

18040 IF W3-0 AND AD3-1 THEN LET AD3-0* LET SC-SC+ISOO* SPRITE 23.3,300.300.0.0 
.0* GOTO 18300 

18050 IF W4-0 AND AD4-1 THEN LET AD4-0* LET SC-SC*1300* SPRITE 24.3.300.300.0,0 
.0* GOTO 18500 

18060 IF W5-0 AND AD5-1 THEN LET ADS-O* LET SC-SC*lSOOi SPRITE 25.3,300.300.0.0 
.0* GOTO 18300 

18070 IF W6-0 AND AD6-1 THEN LET AD6-0* LET SC-SC+lSOOl SPRITE 26.3.300.300.0.0 
.0* GOTO 18300 
18090 RETURN 

18300 LET DE-300* SPRITE 18.10.142.110.0,0.6* RESTORE 21100* FOR NE-13 TO 2 STEP 
-1* READ XU* ADJSPR 1.18.XU* SOUND 3.4.NE 
18310 FOR JE-0 TO DE* NEXT JE* LET DE-DE-30* NEXT 

18550 SOUND 3,0,0* SPRITE 18,10,300,300.0.0.0* GOSUB 11300* IF AD1-0 AND AD2-0 A 
ND AD3-0 AND AD4-0 AND AD3-0 AND AD6-0 THEN LET ATT-O* GOTO 18570 
18360 RETURN 

18370 VS 6* PAPER 13* CLS * VS 4* INK 13* CSR 23.13* PRINT . CSR 23.14, 

PRINT ••••«•«•-, CSR 23.13* PRINT.“l INK I* RETURN 

18800 CTLSPR 2.0: PAPER I* COLOUR 4.1* INK 13, CLS , CSR 3.13, PRINT "DU SEJLESE 
IMOD KAJEN '"* PAUSE 8000* GOTO 12000 
21000 REM 

21095 LET XC-0 

21096 FOR M-l TO LEN (Z*)-39i INK 15* CSR 7.12* PRINT MID*(Z*.M.19) 

21097 VS 2, LET XC-XC*1, IF XC-S THEN LET XC-0 

21098 ON XC GOTO 21120.21130.21140.21130 

21099 VS 4, IF INKEY*<>"" THEN SOUND 0.0,0* CSR 7.12* PRINT • 

-s RETURN ELSE NEXT * GOTO 21095 

21100 DATA 6.11.9.10,8.6.10.9.11.6.10.9.8.0 

21120 INK 4* CSR 0.0* PRINT US*, INK 6* CSR 0.1* PRINT US*, INK It CSR 0.2* PRIN 
T US** INK 12* CSR 0.3* PRINT US** GOTO 21099 

21130 INK 12* CSR 0.0* PRINT US** INK. 4s CSR 0.1* PRINT US** INK 6* CSR 0.2* PRI 
NT US*i INK 1* CSR 0,3* PRINT US*i GOTO 21099 

21140 INK 1* CSR 0,0* PRINT US*t INK 12* CSR 0,1* PRINT US*, INK 4* CSR 0.2* PRI 
NT US*, INK 6* CSR 0,3* PRINT US*t GOTO 21099 

21130 INK 6* CSR 0.0* PRINT US*i INK 1* CSR 0.1* PRINT US*i INK 12* CSR 0,2* PRI 
NT US** INK 4, CSR 0,3* PRINT US** GOTO 21099 
21160 NEXT XC* VS 4 
21170 GOTO 21098 

21200 GENPAT 0.63,126.102,102,126.230,230.230,0* SENPAT 0.66.124.102,102.124.230 
.230.252,0 

21210 GENPAT 0.67,126.102,96,96,224,230,234,0* GENPAT 0.68.120.108.102,102,230.2 
30.234.0 

21220 GENPAT 0.69.126,98,96,120.224,226,234,0* GENPAT 0.70.126.96.96.120.224.224 
,224.0 

21230 GENPAT 0.71.126,102.96.110,230,230.234.0* GENPAT 0.72.102,102.102.126.230. 
230.230.0 

21240 GENPAT 0,73.124,56.24.24,24.36,124,0* GENPAT 0,74.30.12.12.12.12.110.126,0 
21230 GENPAT 0.73,102,108.120,112,248.236.230.0: GENPAT 0.76.96.96.96.96.224.226 
,234,0 

21260 GENPAT 0.77,99.119,127,107.99.99.103.0* GENPAT 0,78,102,118.126.126.238.23 
0,230,0 

21270 GENPAT 0.79.126.102,102,102,230.230.234.0* GENPAT 0,80.126.102,102,126.224 
.224.224,0 

21280 GENPAT 0.81.126.102,102,230,238.234.2,0* GENPAT 0.82,124,102.102.124.248.2 
36.230.0 

21290 GENPAT 0.83.126.102.96,126.6,230.254,0* GENPAT 0.84.126,24.24.24.56.56.36. 
0 

21300 GENPAT 0.85.102.102.102.102,230.230.254.0* GENPAT 0.86.102.230.230.230.102 
.60,24.0 

21310 GENPAT 0.87.113.99.99,107,127,119.99,0* GENPAT 0.88,102,102.60.24.60,230.2 
30,0 

21320 GENPAT 0.89.102.102,60,24,24.56.36,0* GENPAT 0.90,126.70.12.24.48.226.254. 
0 

21330 GENPAT 1.130.0.0,0.233.235.0.0,0* GENPAT 1,131,0,0.0,7,13.28.24.24 
21340 GENPAT 1.132.0.0.0.224.240.56.24.24* GENPAT 1.133.24.24.28.15.7,0,0,0 
21350 GENPAT 1.134.24.24.36.240.224,0,0.0* GENPAT 1,135.24.24.24.24.24.24.24.24 
21360 GENPAT 0.93.24,0.60.102.126.230.230,0* GENPAT 0.92.1.126.102.106.114.226.2 
34.0* GENPAT 0.91.62.72.72.76.124.200.206.0 
21400 RETURN 

21300 DATA 523.3.13.323.3,13.523.3.15.466.2.15.440.15.523.3.13.698.4.13.784.13 
.880.15.880.15.880.13.784.13.698.4.60 

21310 DATA 387.4. 13.587.4. 13,387.4. 15.659.3. 13.698.4. 13.639. 3. 13.698.4. 13.58'’ 
.4.13.323.3,13.323.3,13.523.3.15.466.2,13.440.60 

21320 DATA 523.3.15.323.3.15.523.3.15.466.2,13.440.15.323.3.13.698.4.15.784.I 
3.880.13.880.15.880.13.784.15.698.4.30 

21330 DATA 698.4.30.784.30.784.30.698.4.30.639.3,30.698.4.90 
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Variabel Dump til Spectrum Dump CODE 64800, 492. 

48 K udprinter alle definerede Nu kan du hente programmet 
variabler, simple sbvel som med CLEAR 64799:LOAD"Var 
dimensionerede tal og tekst- Dump" CODE. Du skal blot 
variabler, samt tor-next vari- vcere klar over, at du vil slette 
abler, og disses vcerdier. alle variabler, ndr du loader 
Nbr du har indtastet program- programmet ind, - sb du mb 
met, vil det automatisk kon- tage programmet ind far du 
trollere, om du har tastet data- skal bruge det. 
erne korrekt ind. Nbr du skal Du kalder mtinen med RAN- 
gemme programmet pb DOMEE 64800.□ 
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Grafplotter 


COMMO 

DORE 

64 



Gratplotter tegner gralen for 
en hvilken som heist funktion 
du onsker. ndr denne blot er 
indtastet i linie 90 etter DEF 
FNA(X)= 

Gratplotter udregner max. og 
min. vcerdier tor funktionen i 
intervallet Xmin. - Xmax. De 
to voerdier indtaster du i kors- 
len at programmet. 
Stepstorrelsen, du vcelger, an- 
giver den nojagtighed, du vil 
beregne vaerdierne med. Na- 


turligvis tager det lcengere tid 
at beregne mere nojagtigt 
Fomden at beregne de on- 
skede to vcerdier. tegnes gra- 
ten i hojoploselig gratik. og 
koordinatakserne er ogsd 
indtegnet. 

Der er dog ikke angivet koor- 
dinater pd akserne, men 
man kan jo blot benytte gra- 
ten som skitse.D 

Thomasz Kapielewicz 


10 IF PEEK<49152>-lb9 THEM 60 

20 R = -45> 1 52 __ 

30 READ B:IF B-999 THEM 30 

-40 POKE R , B R —R-*-1 C —B-6-C • OOTO 30 , _ 

?50 IF C033333 THEM PRINT"DRTR FEJL I E 

MD 

70 REM - FUNKTIONS DEFIMERIMO - 

©0 REM 

30 DEE EM R<X>«=0. 1WX —SIN<X) 

110 REM —-INITIflLISERIMO 

1 20 REM 

1-30 PR I MT " < CLR > " „ 

1- 40 ROKE 55 . O POKE 36 -96 
150 ROKE 53280.4 

160 ORRPH=49441 
170 MRM*49152 
100 CLO — -433-45 
130 PLOT-49173 

200 REM 

210 REM ——- HOVED RROORRM 

220 REM 

230 SVS CLO■12.0 

2- 40 OOSUB 350 
250 GOSUB 510 
260 GOSUB 660 

2 70 GOSU B -4 30 
200 SVS GRAPH 
29‘< uuS 1 >1: 5*30 

30.i • »I I HI IE Ml- ** ’* 1 HEM 300 

3 l m F-V • NRM 
326 i 1.30 I O 2 30 

3 J 4 R REM--- •• PARRMF TER I NI-’U I 


Sn 

Rl O f 

3 70 
OHO 


PR:INT"< HOME>" __ „ 

I -R l M r < H V I L« - CRSR ME D • " SR* r 1 * "GRHl 

' IT •• <. • RSR HED >X M I M • X MR: : ** • X 1 • X2 

I NPUT ** < CRSR MED > PUNK I HESTHNU" - EH 
RE Li IRM 
Rl M 

Rl M - • X RKSE - 

REM 

VM~ < V2 — V 1 > 7200 
IE VI>0 OR V2<0 THEM 310 

FOR 1 M = 0 TO 319 : S‘7S PLOT . M • 199—V MEX 

RET URM 
REM 

REM-V AKSE- 

REM 

XM*<X2-X1>7320 

IE X1>0 OR X2C0 THEM 550 

X-ABS< X1>7XM . . _ 

FOR m =0 TO 199 : SVS PLOT.X•N NEXT 

RETURN 

REM 

F?|£fv| —-—--—t— • IJNKTION —- 

FOR XL.-XI TO X2 STEP XM^PA 

SVS PLOT - < XL—X 1 > 7XM . 200—<• EMA < XL > — *▼ 1 

MEXT XL 
RETURM 
REM 

REM - EIMD MAX OO MIM V - 

RR I 1 MT ** < CRSR MED > E I NDER MAX OO M t M V 

Ei -R XL —XI TO X2 STEP XM*RA 

IF ENA< XL > >V2 THEM V2-ENfl<XL> 

IR EMA< XL > <V1 THEM VI=FMA<XL> 

MEXT 

RRIMT" CCRSR ME D >V MIN-";V1 

RR I MT *• V MAX- " i V2 

RETURN 


740 DATA 1 69 • 02 1 * 141 ■ 02-4 • 20© -• 1 6 © -• 027’ * 1 ** 
1 750 DATA 017.20© • 1 69 • 023 . Ml . 000 ■ 22 1 0© 

^760 BATA 163 • 000 - 141.192. 192.032 • 253. 1 ■ 
4 770 DATA 032.235.183.224.200. 176.094. 16 
' 7 Q 0 DATA 020 • 20 1 . ‘ *6-4 • 1 65.021 • 233.001 ■» 17 
6 790 DATA 084.138.074.074.074.010.168.18 
©00 DATA 126. 1 ©2 • 133.233. 1 ©5.127.192. 1'-3 
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810 

LiRTR 

25-4 , 

. 1 3© 

. 0-4 1 

. 007 

. 02-4 .» 

101 , 

253 * 

1 3 

3 

©20 

IlAT R 

253 

. 1 65. 

. 25-4 

. 1 05 

. 000 - 

1 33, 

25-4 . 

1 © 

030 

DR T R 

020 

. 0-4 1 

. 00 7 

. 1 6 © 

. 1 65 

020 • 

0-4 1 . 

2-4 

: : 

840 

DRTA 

02-4 

• 10 1 

. 253 

. 1 33 

. 253 . 

1 65 . 

25-4 . 

1 0 

©50 

HR 1 R 

02 1 

. 1 8 3 

. 25-4 

. 1 65 

• 253 , 

02-4 . 

1 05 • 

00 

(j 

i 

DRTR 

l * 3 

. 253 

. 1 65 

to 

■j 

t 

. t 05 . 

086 . 

133, 

25 

^ 0 70 

L«R 1 R 

1 62 

. 0110 

. 16 1 

. 253 

. 0*4-4 • 

1 32 * 

1 92, 

0 1 

880 

DRTR 

006 

. 05 7 

.. 1 64 

. 1 32 

• 076 , 

1 22 . 

1 32 .• 

02 

© 3 0 

DRTR 

1 76 

• 132 

, 1 23 

. 253 

.. *136 * 

036 

000 p 

00 

0 

•-^00 

DRTR 

06-4 

. 00 1 

. 12 © 

. 0 O 2 

, 1 32 ^ 

003 

H 0 U , 

00 

9 t W 

DRTR 

06-4 

• 006 

. 12 © 

. 007 

. 1 32 • 

00 © 

000 , 

0 1 

0 

y 20 

DR TR 

064 

.011 

, 12 © 

.012 

, 1 32 - 

0 13 

000 - 

0 1 

330 

DRTR 

06-4 

,016 

, 12 © 

.017 

,. 132.. 

0 1 © 

000 ^ 

02 

0 

3-40 

5 

DRTR 

06-4 

, 02 1 

• 12 © 

, 022 

.. 1 32 . 

02 © 

000 

000 

0 2 

990 

dr rR 

06-4 

. 026 

, 1 2 © 

, 027 

- 1 32 . 

03 

360 

&AT R 

1 2 © 

> 06-4 

, 032 

,016 

- 00 © • 

00-4 

002 

00 

1 

• • 70 

DRTA 

1 27 

.13 1 

.• 223 

. 233 

, 2-47 • 

25 1 

25 3 

25 

*4 

3©0 

DRTR 

000 

, 032 

, 253 

, 1 7-4 

.. 032 , 

1 3© 

1 73 

03 


DRTR 

2-47 

. 1 83 

, 165 

. 02 1 

.. 2-40 .. 

003 

. 076 

07 


i 000 DATA 1 7© • 1 65 • 020 .• 1-4 1 ■ 032 . 1 9*3 • 032 .* 2 

”t010 DATA 17-4.032.. 138. 173.032.247. 183.. 1 

65 

1020 DATA 021.240.003.076.072.178.165.0 
20 

1 030 DATA 010.010.010.010.013.032 . 1 9*3 • 1 
-4 1 

1 0-40 DATA 032 1 93 .. 1 63 ■ 000 - 1 33 25 1.-1 69*0 

9 1050 DATA 133.252.160.000.169.000.145.2 

1 060 DA PR 200 • 20© » 25 1. .. 230 ^ 252 * 1 66 .• 252 2 

- '?070 DRTR 128.208.243. 173.032. 193. 162.0 

00 

1 080 DRTR 1 57 .. 000 .. 06-4 > 1 57 • 000 • 065 ■ 1 57 .• 0 

00 ^ 
105*0 DRTR 066 .157.000 • 067.232.208.241,0 

l 00 DRTR 000 - 1 63 .. 022 , 141.000,22 1^1 63 - 0 

110 DRTR 14 1,02-4,20© . 1 73,017.20© .• 003 -• 0 

32 

1 1 20 DRTR 14 1,017,20© 036 ✓ 000 333 


^ 37 



















Jukebox 



■ Du kan bruge enten hele 
progiammet eller blot en blok 
fra det, hvis du vil scette et mu- 
sikstykke ind i dine Lambda- 
programmer. Det er et pok- 
kers indtastningsarbejde, 
men lyden er tin, og der er al- 
le de melodier du altid har 
dromtom.D 

Claud D. Sorensen 
og Michael M. Jorgensen 

















































> 10 REM *********************** 


20 REM * * 
30 REM * MUSIK-EKSEM PLE S * 
40 REM * ‘ TIL LAMBDA 8300 * 
50 REM * LAVST ft;- * 
60 REM *CLAUS C. SORENSEN OG * 
70 REM *MICHAEL M. JORGENSEN * 
SO REM * * 


30 REM *********************** 
100 Ci-S 

110 PRINT AT 0, Si"MUSIX-EKSEMPLER 


120 PRINT 
130 PRINT “1. 
140 PRINT "2. 
150 PRINT "3. 
160 PRINT "4. 
170 PRINT "5. 
ISO PRINT "6. 
130 PRIN T "7. 
200 PRINT "S. 
SURE" 

205 PRINT "9. 
AMMET :> " 

210 PRINT 
220 PRINT 
230 PRINT 


YESTERDRY" 

WHEN THE SAINTS" 
WHRT SHALL WE DO" 
POPCORN" 

MINKA" 

BONDE MARCH" 

SE HAN KOMMER" 
WELCOME SWEET PLEA 

SLUT(SLETTER PROGR 


240 PRINT "TRST ET RF OVENSTAAEN 
DE TAL" 


250Ft=; 
260 IF 

INKEYt 
Ft <"1" 

OR Ft) “9" 

THEN 

GOTO 

:50 

270 

IF 

Ft="1" 

THEN 

GOTO 

1000 


280 

IF 

Ft="2" 

THEN 

GOTO 

2000 


290 

IF 

Ft="3" 

THEN 

GOTO 

3000 


300 

IF 

Ft="4“ 

THEN 

GOTO 

4000 


310 

IF 

Ft="5" 

THEN 

GOTO 

5000 


320 

IF 

Ft="6“ 

THEN 

GOTO 

6000 


330 

IF 

Ft="7" 

THEN 

GOTO 

7000 


340 

IF 

Ft="8" 

THEN 

GOTO 

8000 


350 

IF 

Ft="9" 

THEN 

PR INI 

‘ "ER 

DU S 


IKKER <J/N)" 

353 IF Ft="" THEN GOTO 250 

355 INPUT Bt 

360 IF Bt="J" THEN STOP 

370 IF Bt="N" THEN GOTO 100 

380 IF Bt="" THEN GOTO 355 

390 IF BtO"J" RND Bt O "N" THEN G 


OTO 355 
1000 CLS 

1010 PRINT RT 5,5;“DEN VIL NU SPIL 
LE YESTERDAY" 

1020 PAUSE 100 
1030 REM *********** 

1040 REM *YESTERDAY* 

1050 REM *********** 

1060 TEMPO 37 
1070 FOR N=1 T02 
1080 DOSUB 1160 
109© GOSUB 1160 

1100 MUSIC "ESE8A4B4C> 4B2A2B6A204 
A2E10" 

111© MUSIC "ESE8A4B4C>4B2A2B6A2G4 
B4C>4G4F4E4" 

1120 GOSUB 1160 
1130 NEXT N 

1140 MUSIC "C4E4D4A <4C4E2E10" 

1150 GOTO 100 
1160 MUSIC "D2C2C12" 

1170 MUSIC "E2f2g2A2B2C> 2B2A2A12" 
11S0 MUSIC "A2A2G2F2E2D2F2E2E8D4" 
1190 MUSIC "C4E4D6A <4C4E2E10" 

1200 RETURN 
2000 CLS 

2010 REM ***************** 

2020 REM *WHEN THE SRI NTS'* 

2030 REM ***************** 

2035 PRINT AT 5,0;"DEN VIL NU SPIL 
LE WHEN THE SAINT" 

2036 PAUSE 100 
2040 TEMPO 4 

2050A*="F <16A <16B <16C50F <16A <16B 
<16C50F <16A <16B <16C32A <32F < 32A < 3 
2G<50A<16A<16" 

2G60Bt="G<16F<32F <32A <32C32C16B < 
40" 


20700*=”F <16A <16B <16C32A <32F <32G 
<32F <64 " 

2080 MUSIC A* 

2090 MUSIC B* 

2100 PAUSE 9 
2110 MUSIC C* 

2120 PAUSE 15 
2130 MUSIC A* 

2140 MUSIC B* 

2150 PAUSE 9 
2160 MUSIC C* 

2170 GOTO 100 
3000 CLS 

3010 REM ****************** 

3020 REM *WHAT SHALL WE DO* 

3030 REM ****************** 

3035 PRINT AT 5,0;"DEN VIL NU SPIL 
LE";TAB 15;"WHAT SHALL WE DO" 

3036 PAUSE 100 
3040 TEMPO 4 

3O50A*="A <16A<8A<SA <16A<8A<8A <16 
D < 16F < 16A < 1 6G < 16G <SG <8G < 16G <8G <8 
G<16C<16E<16“ 

3O60Bt="G <16A<16A<SA<SA<16A<3A <8 
A < 16B < 16C16D16C1 6A < 1 6G < 16E <16D <3 
2D <32" 

3O70C*="A <32A <32A <16D <16F <16A <16 
G<32G<32G<16C<16E<16G<16A<32A<32 
A < 16B <16C16" 

3O80D*=" D16C16A<16G<16E<16D <32D < 
32" 

3085 FOR X=1 T02 
309© MUSIC A* 

3100 MUSIC B* 

3110 MUSIC C* 

3120 MUSIC D* 

3130 NEXT X 
3180 GOTO 100 
4000 CLS 

4010 REM ********* 

4020 REM *POPCORN* 

4030 REM ********* 

4035 PRINT AT 5,2;"DEN VIL NU SPIL 
LE POPCORN" 

4036 PAUSE 100 
404© FAST 
4050 TEMPO 15 
4060 FOR P=1 T02 
4070 MUSIC "A2G2" 

4080 FOR N=1 T02 

4090 MUSIC "A2E2C2E2A<4A2G2" 

4100 MUSIC "A2E2C2E2A<4A2B2“ 

4110 MUSIC "C> 2B2C>2A2B2A2B2G2" 
4120 IF N=1 THEN MUSIC "A2G2A2F2A4 
A2G2" 

4130 IF N=2 THEN MUSIC "A2G2A2B2C> 
4E> 2D> 2" 

4140 NEXT N 

4150 FOR N=1 T02 

4160 MUSIC "E> 20 2G2C) 2E4E> 2D> 2“ 

4170 MUSIC "E> 20 2G2C) 2E4E> 2f > 2“ 

4180 MUSIC “G> 2f > 2G> 2E> 2-f > 2E> 2f > 2 

D> 2" 

4190 IF N=1 THEN MUSIC "E>2D>2E>2C 

> 2E) 4E> 2D> 2" 

4200 IF N=2 THEN MUSIC "E>2D>2C>2D 

> 2E>4A2G2" 

4210 NEXT N 
4220 FOR N=1 T02 

4230 MUSIC "C> 16A12C)2D)2E>SD>8C> 
16" 

4240 NEXT N 

4245 FOR N=1 T02 

4250 FOR N=1 T02 

4260 MUSIC “G16E12G2A2BSA8“ 

4270 IF N=1 THEN MUSIC "G16" 

4280 IF N=2 THEN MUSIC "G12" 

4290 NEXT N 
4300 NEXT P 
4310 SLOW 
4320 GOTO 100 
5000 CLS 
5010 REM ******* 

5020 REM *MINKA* 

5030 REM ******* 

5035 PRINT AT 5,3;"DEN VIL NU SPIL 
LE MINKA" 

5036 PAUSE 100 
5040 TEMPO 6 

5O50A*="A <8A <SA <SA<8A <SCSB <8A <80 
<SG<8G<8G<8G<SB<8A<SG<SA<8A<SA<S 
A <8A <8C8B <8" 

5O60B*="A<8G <8B <8E <SG <3A <16A <16" 


5O70Ct="C8C8C8C8C8E8D8CSB<8B <8B < 

SB <8B<8D8C8B <SA <SA <SA <SA<SA<SC8B 
<BA <8G <8B <8ES" 

5O80Dt="G <8A < 16A < 16” 

5090 MUSIC A* 

5100 MUSIC Bt 
5110 MUSIC Ct 
5120 MUSIC Dt 
5130 MUSIC Ct 
5140 MUSIC Dt 
5150 GOTO 100 
6000 CLS 

6010 REM ************* 

6020 REM *BONDE MARCH* 

6030 REM ************* 

6035 PRINT AT 5,0;"DEN VIL NU SPIL 
LE BONDEMARCH" 

6036 PAUSE 100 
6040 TEMPO 4 

6050At="E < SF < 8G <16E <8F<8G<16G<16 
E16C16" 

6O60Bt="D16D16C8B<BA<8G<SG<16E16 
C16" 

6070Ct = “D16D16CSB <8A <SB <3C16C16C 
16" 

60SODt=“D8CSB <16B<8A<8G<16G <16E1 
6C16DSC8B <8B <8A <SG <16G <16E16C16" 
6090 FOR N=1 T02 
6100 MUSIC A* 

6110 MUSIC Bt 
6120 MUSIC A* 

6130 MUSIC Ct 
6140 NEXT N 
6150 FOR M=1 T02 
6160 MUSIC Dt 
6170 MUSIC At 
6180 MUSIC Ct 
6190 NEXT M 
6200 GOTO 100 
7000 CLS 

7010 REM *************** 

7020 REM *SE HAN KOMMER* 

7030 REM *************** 

7035 PRINT AT 5,0;"DEN VIL NU SPIL 
LE SE HAN KOMMER" 

7036 PAUSE 100 
7040 TEMPO 4 
7050 FOR A=1 T02 
7060 FOR N=1 T02 

7070 MUSIC "D32B <16C16D32G <32A<3B 

< SC8D8C16B <16A < 64B < 8CSD8ESD16D16 
G4SD16C10B <10" 

7080 MUSIC “C10A < 16G < 1 OG <64" 

7090 NEXT N 

7100 MUSIC "B <8A <8B <8C8B <16B <16A < 
32G <32G <8F <SG <8A <SG < 16G < 16E32c32 
D1 6E8DSc 16D16" 

7110 MUSIC "D64D32B <16C16D32G <16A 

< SB <8C8D8C16B <16A < 32B < 8C8DSCSDSE 
8D16D16G16D16” 

7120 MUSIC “C16B<16A<16G<16G<32D3 
2B <32B<32G<32A<32A<32A<64B <32D32 
D32B<32A <32" 

7130 MUSIC "A <32G <32" 

7140 NEXT A 
7150 GOTO 100 
8000 CLS 

8010 REM **************** 

8020 REM *SWEET PLEASURE* 

8030 REM **************** 

8035 PRINT AT 5.0; “DEN VIL NU SPIL 
LE SWEET PLEASURE" 

8036 PAUSE 100 
8040 TEMPO 3 

8O50AS="C16C16C16C32C16A <16B <16A 
<16G<32G<16F<16G<16G<16G<32G<16B 
<16G<16A<16" 

BO60Bt="B<32B<16A<30G<16F <16E<8D 
<SE<8F<8G<16F<32E<16F<32 " 

8O70Ct="A <16D16B<1 6C32D16E16F16D 
16E32E16C16C16D16C30C16B <16A <16G 
<32" 

8080 MUSIC At 
8090 MUSIC Bt 
8100 MUSIC Ct 
81 10 MUSIC "A<32" 

8120 MUSIC Ct 

8130 MUSIC "A <32A < 16A < 16A < 16B < 16A 
<30A<16G<16F<32E<16F <32“ 

8140 GOTO 100 
8500 SAVE "MUSIK" 

8510 GOTO 10 


39 



1. del 


2. del 


0 PH1NT *( CLR.CRSR f«010.SPACES)HERD TO HERO RACE“ 

I PRINT*( CR8R NED3)VENT LIOT * 

10 POR R-14344 TO 14883'RERO SiPOKE R.SiNEXT 

100 ORTR 0, 84, 38, 66, 66, 834, 194, 194 

101 ORTR O, ISO, 68, 66, 184. 194, 196. 849 

108 ORTR O. 84, 36, 64, 64, 198, 888, 180 

103 ORTR O. 64, 184, 66, 66, 194, 194, 838 

104 ORTR O, 186, 64, 64, 838, 198. 198, 834 
103 ORTR O. 186, 64, 64, 838, 198, 198, 198 

106 ORTR O, 60, 66, 64. 198, 198. 194, 838 

107 DRTR 0. 66, 66, 66, 834, 194, 194, 194 

108 ORTR O, O, 16, 16, 46. 48, 48, 40 

109 ORTR O, 8, 6, 6, 8, 800, 80S. 884 

110 ORTR O, 70. 78. 80, 884, 808, 800, 198 

111 ORTR 0, 64, 64. 64, 198, 188, 184, 834 

118 ORTR 0, O, 108, 90, 816, 194, 194, 194 

113 ORTR O, 66, 98, 88, 808, 196, 194, 194 

114 ORTR O, 60, 66, 66, 194, 194, 194, 838 

113 ORTR O, 180, 68. 66, 196, 846, 198. 198 

116 ORTR 0, 60, 66, 66, 810, 808, 198, 834 

117 ORTR O, 184, 66, 66, 838, 806, 800, 198 

118 ORTR O, 60, 64. 64, 60, 130. 194, 838 

119 ORTR O, 834, 16, 16, 46, 48, 48, 48 

180 ORTR O, 66. 66. 66, 194, 194, 194, 838 

181 DRTR O, O, 194, 194, 100, IOO, 36. 36 
188 ORTR 0, 130, 130, 146, 146. 818, 818, 838 

183 ORTR O, 130, 66, 40, 16, 104. 886. 194 

184 ORTR O, 66, 66, 66, 60, 8, 84, 84 

183 DRTR O, 186, 8, 4, 8, 118. 96, 186 
188 ORTR O, 186. 136, 136, 834, 136, 136, 148 

187 ORTR O, 184, 134, 136. 146, 168, 194, 184 

188 ORTR 16, 0, 184, 130, 130. 834, 130, 130 

189 ORTR O, O, O, O, O, O, 0, 833 

130 ORTR O, O, O, O, 0, O, 833, 833 

131 DRTR O, 0, O, O, O, O, 0, O 

138 ORTR O, O, O, O, 0, O, O, 833 

133 ORTR O, O, O, O, O, 0, 833, 833 

134 ORTR O, O, O, 0, O. 833. 833, 833 
133 ORTR O, 0, O. O, 833, 833, 833, 833 

136 ORTR 833, 833, 833, 833, O, O, O, O 

137 DRTR 833, 833, 833, O, O, O, 0. O 

139 ORTR 80S, 833. O, O. O, 0, O, 0 

139 ORTR 833, O, 0, O, O. O, O. 0 

140 ORTR O, O, O, O, O, O, 0, O 

141 DRTR O, 0, 0, O, 0, 0, 0, 0 

148 ORTR O, O, O, O, O, O, O, O 

143 ORTR O, O, O. 0. O, 0, 0, O 

144 ORTR O, O, O, O, 0, 0, O, 0 

143 ORTR 0, O, O, 0, O, 0, O, O 

146 ORTR O, O, O, O, O, 0, 0, O 

147 ORTR O, 180, 138, 138, O, 138, 138, 180 

148 ORTR O, 8, 8, 8, O, 8, 8, 8 

149 ORTR 0, 834, 8, 8, 834, 188, 186, 834 

130 ORTR O, 834, 8,8. 834, 8. e, 834 

131 ORTR 0, 130, 130, 130, 834, 8, 8, 8 

138 ORTR O, 834, 186, 189, 834, 8. 8, 834 

133 DRTR 0, 189, 189. 186, 834, 130, 130, 834 

134 DRTR O, 834, 8, 8, 8, 8, 8, 8 
133 ORTR 0, 60, 66, 66, 60, 66, 66, 60 

136 ORTR 0, 60. 66, 66. 60, 8, 8, 8 

137 ORTR O, O, 0, O. 0, 0, O, 0 

136 ORTR 0, 0, O, 0. O, 0. O, O 

139 ORTR 0. O, 0, O, 0, O, 0, O 

63000 PRINT*< CLR)LORO*iPORE I 98.3iPOKE 631.I9IPOKE G38.13IP0KE 633,13 


-OOOOOOOO* 


I T" 10 

8 POR R"38000 TO 380IMRER0 SiPOKE R,Sl»CXT 
3 ORTR 38.68.193.38,803,194.38,188.194,76,38,803 
lO R6"*ncCR8R H0JRE3>TI CRSR H0JRE3 >T8< CRSR MOJRE3 > 6* 

II B8< 1»--0000000000*00*00*00*00000000*0*0*0000*0 *00000-♦♦ 

18 88( £>•'*00*00*00000000**000000*00*00*00*000*00*00-00-00 -• 

13 B8( 3>"*-00-000-0-0-00-00-00"0*0"0*0*0*0*0*0"0*0*0-0--0-0--0-0--0* 

14 B9< 4 >■*-0--O-O*-o- ♦—OOOOOOOOO♦♦♦*•*♦ ♦♦♦*00-00-00-0-0*♦♦*00000000000000 - 

16 C*-B8( 1 > *BP< 8 > *BP< 3 > »Bm 4 > 

17 PRINT"(CLR)*lC8 

18 POR R"0 TO LEN(C8)lP0KE 30000«R,PCEK( 1084*R)trCXT 

80 PRINT*( CLR >0£TTE PROORRM ER LRVET RF M.- 

81 PR INT*< CRSR NE08XC)* 

88 PR INT*( CRSR f«D3 >VEWT LIOT IWLRESNINO TIL MRSKINKOOC’ 

70 REM SPRITE PIOUR 

71 POR R-838 TO 894IRERD SiPOKE R,Si«XT 

78 ORTR 0.848,0.0,38,0,0,168,0,0,848,0,0.168,0,0,38,0,0,118,0,0,118,0,0,848,0 

73 ORTR 0,848,0.,13,141,186,13,141,186,13,143,188,13,833,188,18,849,188,0,848. 
O 

74 ORTR 3,834,0,3,894,0,0,0,0,0,0,0,0,0,0 

80 REM MOVEOPROORRM 

61 POR R"38000 TO 381I6IRER0 SiPOKE 33880,SiPOKE R.SlfCXTiPOR R-0 TO 8000ir«XT 
68 ORTR 38,66,193,38,841,194.38,818,194.38,78,194,38,96,193,38,143,194,38,8, 
183 

83 ORTR 174,886,8,884,0,808,6,38.39,193,169.1,141,889,8,174,888,8,884,1.808.8 

84 ORTR 38,31,193,169,0,141.889,8,173.889,8,141,888.8 

63 ORTR 174,194,8,884,0,808,3,38,136,193 

86 ORTR 174,193,8,884,0,808,3,38,193,193 

87 ORTR 174,830,8,884,1.808,11,169,0,141,8,808,173,831.8,141,193,8 _ 

98 ORTR 174,838,8,884,3,808,1,96.174,833,8,884,3,808.1,96 ■ 

89 ORTR 38,67,193,76,38,803 

90 POR R-49163 TO 30I63IRER0 SiPOKE 33880.SiPOKE R.SirCXT 
93 GOTO IOOOO 

100 REM SCROLL BRKC K49163-49893) 

108 ORTR 168,0,189.144.3,137,184,3,838,884,87,808,843 

103 ORTR 168,0,189,104,3,137,144,3,838,884,87,808,843 

104 ORTR 168,0,189.64.3,137,104,3,838,884,87,808.843 
103 DRTR 168,0,189,84,3,137,84,3,838,884,87,808,843 

106 ORTR 168,0.189,840,4,137,84,3,838,884,87,808,843 

107 ORTR 168,0,189,800,4,137,840,4,838,884,87,808,843 

108 ORTR 168,0,189,160,4,137.800,4,838.884,87,808.843 

109 ORTR 168,0.189,180,4,137,160,4,838,884,87,808,843 

110 ORTR 168,0,169.80,4,137,180,4,838,884,87.806,843 

III ORTR 168,0,189,40,4,137,80,4,838,884,87,808,843,96 

180 REM SCROLL BRhC 8(49309-49439) 

181 ORTR 0,0,0,0,0,0,0,0,0,0,0,0,0 

188 ORTR 168,0,189,138,7,137,198,7,838,884,87,808,843 

183 ORTR 168,0,169,118,7,137,138.7,838,884,87.808,843 

184 ORTR 16e.O,169,78,7,137,118,7,838,884,87,808.843 
183 ORTR 168,0,189,38,7,137,78,7,838,884,87,808.843 

186 ORTR 168,0,189,840,6,137.38,7,838,884,87,808,843 

187 ORTR 168,0.189,808,6.137,848,6,838,884,87.808,843 
186 ORTR 168.0,188,168,6.137,808,6,838,884,87,806,843 

189 ORTR 168,0,199,189,6,137,168,6,838,884,87,808.843 

130 ORTR 168,0,189,88.6,137,188,6,838,884,87,808,843 

131 ORTR 168,0,189,49,6,137,88,6,838,884,87,808,843,96 

140 REM STYRINO BIL I (49440-49437) 

141 ORTR 174.1 ,880.884,831 ,809,3,806,0,808,884,847,809,3.836,0,808,96 

148 REM STYRINO BIL 8 (49438-49473) 

143 ORTR 174,0,880,884,183,808,3,806,8,809,884,I 19,808,3,838.8,808.96 

144 REM STYRINO PRRT BIL 1(49476-49303) 

143 ORTR 174,1,880,884,834,808.3,836,198,8,884,833,808,3.806,198,8 
146 ORTR 174,198,8,884,833,808,3,838,198,8,96 



■ I dette racerbilsspil til Com¬ 
modore 64 kan man spille 2 
spillere pd en gang (split¬ 
screen). Man kan ogsd spille 
mod computeren med man¬ 
ge torskellige svcerhedsgra- 
der, Spillet er delt op i to dele. 

1. del. Grafik til banen. 

2. del. Selve hovedprogram- 
met. 

Da spillet er delt op i to, skal 
man huske at save 1. del efter 
indtastning. Deretter indtastes 
anden del, som selvlolgelig 
ogsd skal saves. Spol bdndet 
tilbage og load program- 
met. □ 

Michael Lauridsen 
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148 REM STYRINO FART 0IL 8(49504-49331) 

149 DATA 174,0.800.884,186.808,3,838.193.8,884.183,808,3,806.i93,8 
130 DATA 174,193,8,884.833.808.3.838.193.8,96 

139 REM VEJSTYRINO VCJ I<49338-49680> 

160 DATA 838.194,8,174,194,8,189.48,117 

16 I DATA 170.884.43 .808.13.838.198,8,169.160,141,808,8,169,160,141,809.8 

168 OATA 884.43,808.13, 806, 198, 8. 169,160 

163 OATA 141. 808, 8. 169.160, 141, 809. 8. 884 

164 OATA 48.808,8,169,160. 141. 808. 8, 141. 809,8,174,198.8,173, 808, 8, 137 

163 OATA 40.4,169.38,137,41,4,137, 48, 4, 137, 43. 4, 137, 44 ,4, 137, 43, 4 , 

173 

166 OATA 809. 8. 137, 46. 4, 96 

169 REM VEJSTYRINO VEJ 8<49680-49709> 

170 OATA 838,193.8,174,193,8.189,48,117 

171 OATA 170.884,43,808.13,838.199,8,169,160,141,810,8.169,160.141.811,8 
178 DATA 884.43,808.13. 806. 199, 8, 169.160 

173 OATA 141, 810. 8, 169,160, 141, 811, 8, 884 

174 OATA 48.808.8,169.160, 141, 810, 8, 141, 811,8,174,199,8,173, 810, 8. 137 

173 OATA 48.6.169,38,137,49,6.137, 30, 6. 137, 31. 6, 137, 38 ,6. 137, 33, 6 , 

173 

176 OATA 811, 8, 137. 34. 6. 96 

180 REM JOROCN l(49710-49788) 

181 OATA 168,0,169,160,137,40,4,838,884,86,808,848,96 
183 REM JOROCN 8(49783-49733) 

186 OATA 168.0,169.160,137,48,6,838,884,86,808.848,96 

190 REM SCROLL (49736-49808) 

191 OATA 174.800,8.884,38.808,3,38.38,193.884.64,808,3,38,38,193.884,96,808.3, 
38 

198 OATA 38.193,884,188.808,3.38.38,193,884,160.808,3.38,38,193.884,198,808,3, 
38 

193 OATA 38.193.884.884,808.3,38,38.193,884.834,808,3,38.38,193,884,1,808,9 

194 OATA 38,13,198,38,46.194,38,184,193,96 
193 REM SCROLL 8(49809-49790) 

196 OATA 174,801,8,884,38,806,3,38,30,193,884,64,808.3,38,30,193,884,96,808,3, 
38 

197 OATA 30.193.884,188,808,3.38,30,193,884,160,808.3,38,30,193,884,198,808,3, 

38 

198 OATA 30,193.884.884,808,3,38,30.193,884,834,808.3.38.30.I93,884,833,808.9 

199 OATA 38,137.198,38.39,194.38,813.193,96 
801 REM -730(49888-49904) 

808 OATA 174.198,8,148,818,8,806.818.8,838,800,8,38,78,194,174,818,8,884,833, 
808 

803 OATA 840.96 

806 REM -731(49903-49898) 

807 OATA 174,193,8,148 ,8 19,8,806.819.8 ,838,801 ,8,38,143.194,174 ,8 19 ,8 ,884 ,833, 
808 

809 OATA 840,96 

810 REM LTD 1*8 (49988-49930) 

811 OATA 169.33,141,4,818,174,198,8,148.0,818 
818 OATA 169.33,141,11,818,174,193,8,148,7,818,96 

880 REM FALOER I FART I (49931.-49978) 

881 OATA 174,31 ,809.884.1 ,808,80,168,6.806,198,8,178,198,8,198.833 
888 OATA 808.3.838.198,8,808,884,0,808,838,96 

883 REM FALOER 1 FART 8 (49979.-30006) 

884 OATA 174,31,808,884,8,808,80,168.8.806,193,8,178,193.8,198,833,808,3 
883 OATA 838,193,8,808.884,0.808,838,96 

830 REM SKR1 VCR MPM UO (30007-30073* 

831 DATA 169,38,141,1.4.141,8,4 

838 DATA 169.19.38,810,833,173,198,8.43,198,8.168,169,0,38,143,179,38,813,189 

833 OATA 169,19,38.810.833.169,17,168,13,38,810,833,808,884,0,808,848,169,38 

834 OATA 141,9.6.141,10.6,173,193,8,43.193,8.168,169.0,38,143,179,38.813,189, 
96 

840 REM OMOANGSTAELLER 1(30076-30114) 

841 OATA 838.194,8,838,838,8 

848 OATA 169,19.38,810,833,168,9,169,89,38,810,833,808.884,0,808,846,173.838 

843 DATA 8,43.838.8,168,169,0.38,143,179,38,813,189,96 

844 REM OMOANGSTAELLER 8(30113-30163) 

843 OATA 838,193,8,838,833,8,169,19,38,810,833,168,13,169.17,38,810,833,808, 
884 

846 OATA 0,806.848,168,9,169,89,38,8lO,833,808,884,0.808,846,I73,833 

847 OATA 8,43,833,8,168,169,0,38,143,179.38,813,189.96 

8000 PR 1 NT• ( CLR,ROO.SPACE4)NCH-- LAP--PLAYER 1* 


9301 POKE 33881,0 

8010 PR INT *( CRSR NCO 18 .SPACE4 >N*>H-- LAP - -PLAYER 8* 

8080 PR INT*( HONC ,GRON> * IFOR A-0 TO 10« PR 1NT*( RVS ON,SPACES ,RVS OFF,SPACES. 

RVS ON,SPACE 18>*INCXT 
8083 PR I NT *( CRSR NCO > * 

8030 •FOR A-0 TO 9iPRINT*(RVS ON.SPACES.RVS OFF.SPACES,RVS ON.SPACE 18>*tNEXT 

8039 PRINT*( HOME.CRSR NC04 > * 

8040 PRINT TAB< 30 > I *( BLAA >M< CRSR NED >E< CRSR NEO >A( CRSR ICO >0< CRSR VENSTRE4 . 
CRSR NCO >T( CRSR NCO >0( CRSR NCO, CRSR VENSTRE8 , 

CRSR NCO )H( CRSR NCO >E( CRSR NCO >A( CRSR NCO >0( CRSR VENSTRE4 . 

CRSR NCO >R( CRSR NCO >A< CRSR NCO >C( CRSR NEO )E( CRSR NCO > * 

8049 PR INT*( HOME.CRSR NCOS)* 

8030 PRINT TAB( 30 >*^ CRSR NCO CRSR NCO )^l CRSR NCO >% CRSR VEM5TRE4 . 

CRSR NCO CRSR NCO )^! CRSR VENSTRE8 .CRSR NCOS >^ CRSR NCOCRSR NEO CRSR 
NCO CRSR VENSTRE4 .CRSR NEO ) *8 CRSR NCO CRSR NCO CRSR rtDT 

9000 POKE 33869,3'POKE 33849.184iPOKE 710,8«P0KE 706.0«P0KE 707,0>POKE 711.8 

9001 POKE 34896.13IP0KE 34877.1901POKE 34878,833«POKE 34873.9«P0KE 34876.33 
9008 POKE 34804,190(POKE 34883.833(POKE 34883,33«POKE 34880.9 

9030 POKE 33831.888 

9060 POKE 8040,131 POKE 804 1,13 

9300 SYS 38000 

9399 FOR A-34878 TO 34896IP0KE A .0 ■ NCXT t POKE 198,0 
9600 FOR A-0 TO 80001 NCXT 

9610 IF PEEK( 744>>PEEK( 743>THEN FOR A-PEEK(33830)TO I STEP-1«P0KE 33830,AsNCXT 
IVI-1 

9680 IF PEEK( 744>(PEEK( 7431TMEN FOR A-PEEK( 33848>TO I STEP - I * POKE 33848.AiNCXT 
«VI-8 

9630 PRINT*( CLR > VINOEREN ER PLAYER'IVI 

9699 POKE 198.0 

9700 OET A»i IF A*-**TWCN 9700 

10000 POKE 33878,31tPOKE 8041,13'POKE 704.0IP0KE 703,OiPOKE 706.3IPOKE 707,3 

10001 PRINT*(CLR.CRSR NE03>*tPOKE 33880,0 

10003 PRINT* HEAO TO HEAO RACE 

10010 PRINT*( CYAN,CRSR NC03>DER SKIFTES FARVER PA BILERNC VEO* 

10011 PRINT'HJRLP AF JOYSTIKKENCE* 

10080 PR INT*( CRSR NC04 >E ' I PLAYER* 

10081 PRINT*T*8 PLAYER* 

10030 FOR A-0 TO 71POKE 14336*I60*8*A ,833iNCXT 

10031 FOR A-0 TO 7IP0KE 14336 *63•8 *A,0• NCXT 
10038 FOR A-0 TO 7IP0KE 14336*93*8*A,0INCMT 

10030 POKE 33869,31POKE 33848.178■POKE 33849,73iPOKE 8040.I3IP0KE 33830,178 

10031 POKE 33831,1181POKE 33881,OiPOKE 744.833«P0KE 743.833tPOKE 706,3 
•POKE 707,3 

11000 GET A9I IF A*-*E*THEN POKE 748,II GOTO I IIOO 

11001 IF AR«-T*TWEN POKE 748.8IGOTO 11130 

11008 POKE 1000,806«POKE I0O1.39IPOKE 1008.8081POKE 1003,96 

11003 POKE 1004,806iP0KE I003.40IP0KE 1006,808«POKE 1007,96 

11004 IF PEEK(36381>-839 THEN SYS 1000 
11003 IF PEEK( 36380)-!11 THEN SYS 1004 
I 1030 GOTO 1IOOO 

11100 FOR A -170 TO SOOiPOKE 33830,AlFOR R-0 TO 10MCXT R, A 

I 1101 FOR A-I 18 TO 0 STEP-I«POKE 33831,A I NCXT 

11108 FOR A-73 TO 184iPOKE 33849,AiNCXT 

I I 103 FOR A-170 TO 110 STEP-HPOKE 33848 .AINCXT 

I I 103 IF PCEK( 748 ) -8 THEN 18000 

1 I 1 10 INCUT *< CLR >$V4RHCOSGRAO • ' I SV 

I 1180 POKE 743,SV 

I I 130 OOTO 18000 

11130 FOR A-170 TO 110 STEP - 11POKE 33848,AiPOKE 33830.AiNCXT 

11131 FOR A-I 18 TO 888■POKE 3383 I,AiNCXT 
11138 FOR A-73 TO 184IP0KE 33849.AiNCXT 

18000 INCUT*( CLRIOMOANOE 1*830 *»0HF 0 >830 OR 0(1 THEN 18000 

18001 POKE 38107,OiPOKE 38099.0 
18010 GOTO 8000 





















Spillet Crash Lander er en ny 
version al det gamle, og vel- 
kendte. Bomber som blev 
bragt forste gang i et engelsk 
blad. Vi viser her en ny udga- 
ve al spillet. hvor der bdde er 
lyd, larver og bmgerdeliner- 
bar gralik. 

Selve spillet gdr i al sin enkel- 
hed ud pd, at du skal bombe 
en storby sd Had, at du kan 
lande helskindet. Spillet er 
menustyret ■■■ 

Kasper Vad 


AMSTRAD SP1L. *■»* CRASH LANDER 
10 ’ CRASH LANDER VI.2 
20 ’ 

30 BORDER 1t INK 0.1 
40 PEN li INK 1.24 
50 PEN 2: INK 2.3 
60 PEN 3« INK 3. 13 
70 G0SUB 350 

80 MODE It LOCATE 12.12: PRIM -a.fOlM t>«43* 

30 FOR t-1 TO 22* FOR y-i TO 22lK-'H»y»/t: NEXT y: NEXT t 
100 MODE li GOTO 660 
110 CLS 

120 ENV 2.5.-3.30:<*.»9«c-l:<»«i:#«0:**0 

130 FOR y-2 TO 40: r-24-fINT ( RND* <. +5»»»: FOR **24 TO r ST£° -li b (y 

140 PEN 3: LOCATE y.x: PRINT CHR*r2I3>: NEXT x: LOCATE y.r-it PRIM ChR*« 216*: N 

EXT y 

ISO PEN l: LOCATE 23.lt PRINT 3" 

160 FOR y-2 TO 25:F0R x»l TO 40: PEN 2t LOCATE x.y: PRINT CHR*<2l2> CHR*«211> C- 
R*(210) 

170 IF c>23 THEN LOCATE d.ct PRINT - *1 a«0l ««0 
180 *4-INKEY* 

190 IF a*--*" OR a*-"H" THEN 640 ELSE IF d-1 THEN a**" " 

200 IF a»l OR *«1 THEN GOSUB 510 
210 IF a*-"b“ OR a*« M 8" THEN GOSUB 480 
220 IF b*l THEN a-1: b*0 
230 CALL 4BD19 

240 IF y-25 THEN FOR t-1 TO 25: b (t>-26: NEXT t 
230 IF c-b(d> THEN «-l: h-0 

260 IF y*0 AND x-0 AND b<2)-y»l THEN SOUND 1.302.150,1.2.1.5: LOCATE 2.y*i: PRIN 
T CHR*(241> t CLS: GOTO 320 

270 IF y-b(x*2> THEN SOUND 1.302.150.1.2.1,3: FOR t-0 TO 2: LOCATE x«-2.y: PRIN" 
CHR*<216*t): FOR i-1 TO 130:NEXT NEXT t: CLS: GOTO 520 

280 IF «-l THEN SOUND 1.200.7.12.0.0.21: b(d)«b(d)*l: IF RND*6<0.3 T HEN a*0: *-0 
t b-0: LOCATE d.Ct PRINT - * 

290 IF y-24 AND x-34 THEN *»1i FOR t-1 TO 23: b Ct)»26: NEXT t 
300 IF y-25 AND x-1 THEN LOCATE x.y: PRINT “ ": GOTO 320 
310 LOCATE x.y: PRINT - NEXT *: NEXT y 

320 y*23: FOR t*2 TO 12: LOCATE t.y: PRINT a*: FOR x-1 TO 73: NEXT h: LOCATE t.y 
: PRINT " “t NEXT t: LOCATE 12.yi PRINT CHR*(2l2) 

330 FOR t-1 TO 300: NEXT t 

340 FOR ,-l TO 8: LOCATE 13.23: PRINT CHR*f250): FOR t-1 TO 200: NEXT t: LOCATE 
13,25: PRINT CHR**2S1>I FOR t-1 TO 200: NEXT t: NEXT . 

350 LOCATE 13.25: PRINT CHR*<245>: FOR t-1 TO 500: NEXT t 
360 y-23> x-6 

370 FOR t-12 TO 37: LOCATE t.y: PRINT a*: FOR .-1 TO x*30: NEXT . 

380 IF k> t THEN x—x — 1 


390 LOCATE t.yi PRINT M “i NEXT 

400 LOCATE 38.y: PRINT CHR*<244> CHR*<245>: FOR h-1 TO 50: NEXT m LOCATE 38.y: 
PRINT “ "i CHR*(246): FOR k-1 TO 30: NEXT ki LOCATE 39.y: PRINT " 

410 CLS: LOCATE 5.5: PRINT "CONGRATULATIONS" 

420 LOCATE 3.10: PRINT "Hit any kay to Play." 

430 WHILE INKEY*-"": WEND: RUN 
640 IF ai-0 THEN GOTO 310 

630 a-k*3l n-y: FOR .»1 TO 19t LOCATE a.n: PRINT CHR*<2lSM FOR t-1 TO 5: NEXT t 
: LOCATE a.n: PRINT " "I IF n- b <a> AND «<41 THEN bCxO-blm)*! 

660 IF a) 40 THEN n-n*i: a-0 

470 a-M-»H NEXT it a.-a.-l: PEN It LOCATE 37.1i PRINT a.t G0 T 0 280 
480 IF y)23 THEN RETURN 

490 IF a-0 THEN b »i: h«9: c-y+H d-x-M: RETURN 
300 RETURN 

510 LOCATE d.ct PRINT “ c-c + 1: LOCATE d. ct PRINT CHR*<232>: RETURN 

520 CLS> LOCATE 5. lOi PRINT "SORRY.you crashed down" " 

530 LOCATE 5. 15» PRINT "Hit any kay to oiay a«a>n.” 

540 WHILE INKEY*-"": WEND: CLS: RUN 
330 SYMBOL AFTER 209 
560 SYMBOL 210.0. 0. 0,0.0. 248. 234. 24S 
570 SYMBOL 211.0.0.124.66.65.233.223.233 
580 SYMBOL 212.192.224.224,224.226.255.233,233 
590 SYMBOL 213.253.219.219.255.255. 219.219. 253 
600 SYMBOL 216.26,24.26,24.60.102.231.255 
610 SYMBOL 213.0. 128.232.255.235.252. 128.0 
620 SYMBOL 216.128.21.80.180.24.23,268.26 
630 SYMBOL 217.16.66,8.137,42.232.72.24 
640 SYMBOL 218.40,132.132.16.146.34.38.24 
650 RETURN 

660 CLS: PEN i: a*-CHR*<2l2)-»CHR*(2l 1 >*CHR*<210> i b*«" CRASH LAN* 

E R FOR f-1 TO 40i LOCATE f.3: PRINT MID*( b «,f,1)Im* 

670 FOR u-: 

630 * 

690 PEN 2t 
700 LOCATE 
710 LOCATE 
720 LOCATE 
730 LOCATE 
740 LOCATE 
730 LOCATE 
760 LOCATE 
770 IF Ml 
730 LOCATE 
790 WHJtE 


l TO 50: NEXT u : NEXT fiLOCATE f.3: PRINT " 

LOCATE 5.5: PRINT "You ara in control of an a.roiar.a" 
5.7: PRINT "mkiCK i* looam* naiaht vary fa*t. " 

3.9: PRINT "Your task i* to bomb tha City *o" 

3.11: PRIM'“fiat, that you can land tKara. 

13. 14: PRINT "CONTROLS" 

5.16: PRIM "BOMBS.B" 

5.13: PRINT "MISSILES. 

3.20: PRINT "Difficulty lavai (1...10)": INPUT i 
OR i>10 THEN 760 

5.25: PRINT "HIT ANY KEY TO PLAY." 

INK£Y*s ""i WEND: GOTO 110 
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ordreaner 


■ Dette program laver din 
computer om til en bordreg- 
ner. Den kan beregne en 
masse ting, for eksempel 
arealer, rumfang, overflader 
etc. 


PRII IT” CCLPl ' 


Programmet er selvlorklaren- 
de, da du hele tiden bliver 
spurgt om de nodvendige op- 
lysninger, til beregninger- 
ne.n 

Jens Harald 

i3260.3 POI E 5328 1 ^ 



000 


1 PR I NT •* ***** ***** ** ******************* 
******** * •• 

2 PRINT"* TOST 1 2 

3 *" 

r PRINT"* ALM. RREflLER RU 

HFfiNO *" 

4 PRINT"** TOST 4 5 

6 4 " 

5 PRINT"* <3MKREDS OVERFLfiDER 

QU IT 34* ** 

G PR INT"*()*<ii*4MKiln*-4llln*i|li*i*i*4(i*4H*4t4()*)**()*4<i**ll*4i)* 
******i a**#'" 

7 INPUT A* 

© IF" fi*<> " 1 " RND ■ R* C3 " 2 " RND fl*0"3"flND R 
#0"-4"fiND fiCC "5"RND R*0"6"THEN GOTO O 

© IF n#="l"THEN GOTO 15 

10 IF R*-"2"THEN GOTO 365 

11 IF N*="3"THEN GOTO 500 

12 IF R*= THEN GOTO 600 

13 IF R$*"5"THEH GOTO 650 

1-1 IF R*-"6"THEN GOTO 1000 

15 PRINT"<CLR>" POKE 53200,3 POKE 33281 

1 

16 PR I I IT " *********4»**** CALCULATOR 4>* 
********** •* 


512 

ME 

PRINT"*TRST 

* " 

1 

RIJMF RHGET 

RF 

EN 

PR IS 

513 

M I DE 

PRINT"*TRST 
* " 

2 

RUMFANOET 

RF 

e: 1 

PVR A 

514 PRINT" 46 T AST 
MI DESTUB 4" 

3 

RUMFANOET 

RF 

EM 

PVR A 

515 

E 

PRINT"*T AST 
* " 

4 

RUMFANGET 

RF 

EN 

KEGL 

516 PRINT" 46TAST 
ESTUB 46" 

5 

RUMFANOET 

RF 

EN 

KEGL 

517 

NDER 

PRINT"*TRST 
* •• 

6 

RUMFANGET 

RF 

EN 

CVL I 

518 

E 

51© 

PRINT"* TAST 
* " 

PRINT"* TAST 

7 

€, 

RUNFRNGET 

MENU 

RF 

EN 

KUGL 

520 PRINT" ***************************** 
********4*6*** 


530 INPUT M PRINT"(CLR>' 


1 7 

6 

PR1NT"* 

7 4 

TRST 

1 

2 3 

4 5 

IS 

V 

PF! I NT " * 

X2 ♦ " 


X 

— 

X X*tT 

1 © 

F-R I NT " * 

4 •' 

1 AST 

8 

© 

1 0 

2 G 

PRINT"* 

*" 


1 XX 


MENU 

2 1 

F-R I MT " **♦**♦** **********4 *********** 


53 1 

I F 

A— 1 

THEN 

GOTO 

540 

532 

I F 

A—2 

THEM 

GOTO 

547 

533 

IF 

A = 3 

THEM 

GOTO 

544 

534 

IF 

A —4 

THEN 

OOT4J 

54 7 

535 

IF 

A=~5 

THEN 

GOTO 

54© 

536 

I F 

A =»6 

THEN 

GOTO 

552 

537 

I F 

Fi = 7 

THEN 

GOTO 

554 

538 

I F 

R = 8 

THEN 

GOTO 

O 


.* 4 ******* ♦ * 


30. 

I NPUT R 

PF • I NT " < CLR > " 

31 

1 F 

A® 1 

THEN 

GOTO 

1 S0 

32 

I F 

A -2 

THEN 

GOTO 

2 10 

33 

IF 

A® 3 

THEN 

GOTO 

230 

34 

IF 

A® 4 

THEN 

GOTO 

250 

35 

I F 

A—5 

THEM 

GOTO 

270 

36 

I F 

n=e 

THEN 

GOTO 

2©0 

37 

IF 

A r 7 

THEN 

GOTO 

3 10 

3© 

I F 

A®© 

THEN 

GOTO 

330 

3© 

IF 

A = © 

THEN 

GOTO 

350 

♦ O 

I F 

A- 1 O 

THEN 

l GOTO O 

1 ©O 

F-R I NT " 

GAUGE 

" 


200 

I NPUT 

B I 1IPUT C 

F-R I NT 


210 PR I NT •* M I NUS " 

220 INPUT B INPUT C 

230 PRINT"PLUS" 

240 INPUT B INPUT C 

250 PRINT-DIVIDERE" 
260 INPUT B INPUT C 

270 PR I NT " X * PI" 


PRINT B —C 
PRINT B-*-C 


PRINT tt*B GOTO 


5-10 PR I NT " F:UMFAKGET RF EM PR I ©ME " 

5-11 INPUT"H0JDEN**;B I NPUT "GRUHIiFLHDE* I" • 
C PR I : IT B*C GOTO 511 

542 PR I MT " RUMFANOET RF Cl I PVRAM I HE " 

3-13 INPUT"H0 JDEN" 7 1 I NPUT " ORUNDFLAI'EN " • 
Q PRINT C;OOTg» 511 

5-1-4 PR I NT "RUMFANOET RF EM P V RAM I DESTUB " 
5-45 I NPUT " H0JDEN ” J B ■ I NPUT "GRUNDFLADER 
";C : INPUT D PRINT B4 1 /34 < C + D + SQR <C*«D > > 
5*46 GOTO 511 

5-4 7 PR I NT "RUMFANGET RF EM KEGLE" 

5-4© INPUT"H0JDEN " ; B I MPUT " GRUNDFLADERA 
DIUS ";C ; PRINT l/3*n*C12*B GOTO 511 
5-43 PR I NT "RUMFANOET RF EM KEGLEC TUB " 

550 INPUT"H0JDEN "..B INPUT"GRUNDFLADERA 

BIER "7C =INPUT D 

551 PRINT n»*l/3*Bi*<Ct2 + Dt24-C4D> GOTO 51 

1 

552 PRINT"RUMFANOET RF EN CVLINDER" 

553 INI UT"H0JDEN " 7 B : INPUT"GRUNDFLADERA 
DIUS " 7 C PRINT tn*Cr24B GOTO 511 

55-4 PR I NT "RUMFANOET RF EN KUGLE" 

555 I NPUT " RRD I US " 7 i) = PR I NT tt*0 . 75*B T3 : G 
OTO 511 

600 REM 4*4* OMKREDS ** 

605 PRINT"< CLR >" : POKE 53288> 3 : POKE 532© 
1,1 » 

610 PRINT"4»4«4H*Jln*4<*4»4 4«4«4f4«4» OMKREDS *** 

611 PR I NT" *T AST 1 OMKREDSEN RF EN CIRK 


2©0 PF- I NT " KVRDRl TROD " 


300 INPUT B PRINT 

310 PRIMT"X T RMDE 
320 INF-1, r B PRINT 

2:30 PF* I MT " BR 8 K TII_ 
3*40 INPUT B PRINT 

35 21 PRINT"PROCEMT" 
360 INPUT B INPUT 


B PRINT SGR < B > GOTO 1 
X T RMDEN" 

D PRINT B 12 GOTO 16 
DROP TIL. DEC I M. 1L " 

B PRINT 17B GOTO 1 6 


PP I MT B*CX 1 GO ; GOTO 


JLJJ 

PRINT "■tCLRV 

pm 

532©0 • 

3 POKE 

532© 

L .• 1 

370 
37 1 

REM ** l IRERLER ** 

PF! I NT " ***4******** * ARC ACER 

* * * * 

************* 

372 PR I NT ** 4TAST 

1 

ARERLET 

RF EN 

TRRF-E 

”37*3 

PRINT"*TRST 

2 

RRERLET 

RF EN 

, I PKE 

"374 

46 

F-R I NT " * TRST 

3 

RRERLET 

RF El i 

TREKR 

IT 

37*5 

* " 

F-R I NT " 4 TRST 

4 

RRERLET 

RF ET 

PRRAL 


LELOi.RRM 4(" 

376 PPINT"*TRST 5 MENU 
4* " 

380 PR I NT " ************ ***************** 
46 *4(46464<46 * 4(4(4(" 

381 INPUT R PRINT"<CLR>" 

382 IF A=1 THEM GOTO 337 

3©3 IF A®2 THEN GOTO 395 

38-4 IF R =3 THEN GOTO 405 

385 IF R—4 THEN GOTO 415 

386 IF A*5 THEN GOTO 0 

387 PRINT" RRL.RLET RF EN TRRPETZ" 

390 I MPUT " HOT DEM * , A I NPUT " PRRRLLELLE S 
IPER " 7 B INPUT c PRINT R/2*B+C GOTO 371 
335 PR I NT *' ARERLET RF EN CIRKEL" ____ ^ 

400 INPUT"RRDIUS "ifl PRINT R T2 *n GOTO 3 

'405 PR I NT " RF.ERLET RF EN TREKRNT" 

4 10 I NPUT " H0JDEN " , A : I NPU T " GRIJNDL I N JEN 
" ; B : PRINT R48.54B GOTO 3.^1 . . .. 

415 PRINT"RRERLET RF ET PRRAL!—LLOGPRI 
420 INPUT"H0JDEN "7 A INPUT"GRUNDLINJ_N 
•* 7 B PR I NT R46B GOTO 37 1 

500 REM 4i4< RUMFRNG 4»46 _ ^ _ 

510 PRINT"< CLR>" : POKE 53280 , 3 : POKE 5o^8 

l pp ih!T"4»4*46464646464646464646-+ 4*46 RUMFRNG *-46 * 


611 

PRINT " 

EL 

4 

612 

PRINT" 

* 

613 

PRINT" 

620 

INPUT 

62 1 

IF R— 1 

622 

I F R—2 

630 

PR I NT ** 

63 1 

INPUT" 

1 O 

65C' 

REM ** 

655 

PRINT" 

1 , 1 

660 

PRINT" 


66 1 

PRINT" 

LE 

* 

662 

PRINT" 

INDER * 

663 

PRINT" 

LE 

* 

664 

PRINT" 

LESTUB * 

665 

PRINT" 

* 

666 

PRINT" 

67*01 

INPUT 

67*1 

IP R— 1 

67*2 

IF A — 2 

67*3 

IF A — 3 

67*4 

IP A® 4 

67 5 

I F A — 5 

£>80 

PRINT " 

68 1 

INPUT " 

660 

682 

PRINT" 

683 

INPUT" 

D I US 

" 7 C = PR 

6 ©4 

PRINT" 

685 

INPUT" 

DERADIUS "7 

686 

PRINT" 

687* 

1NPUT" 

DERRDIER "7 

68 © 

GOTO 6 


2 MENU 


OVERpLflDER 


4ITRST 1 OVERFLADEN RF EN KUO 


*4646464646464646 46 


7 B PRINT 4*tr*Bt2 GOTO 


B INPUT"GRUNDFLADERA 


EN "7 B : INPUT "ORUNDFLA 
r*B*C : GOTO 660 


•ORUNDFLA 


1000 INRUT"ER DU SIKKER " . 
100 1 IF R»—"J^VTHEN NEW 

JR R4-"N"THEN GOTO *3 


11111111 


43 


4 4*46 


RUMFRNG 


46 46 46 


, A* 









































































































MSX 


kan 16 stor 
Togiam, som 
ikter (b6de 
se) i et poly- 
:rligh 0 jgrad. 
ben Madsen 


10 * PolynonMors nulpynkter 
20 CLSsPRlNTTABC63"Po!goo*•ors nulpunkte 

30 PRINT TABC63"-'• :P 

RINT SPRINT SPRINT 

40 PRlNT'Dette prograrr finder alle rodde 
riot" 

50 PRINT ,- n*te grads po ! gnoir • u<". 'sPRINTsP 
RINT 

60 INPUT "Polgnomiets grad' SN 
70 IF NU0 OR NO 1 NTfND THF.N PRINT SPRINT 
...et pos'tivt heltttl. tdk.":PRINTsGOTO 
60 

80 Din ARCN3.AZCN3.ALCN 13 :CLS 
90 A*="##. ' 

100 PRINT"Indtdst koeff ic ienten til"sPRI 
NT 

t10 FOR K = 0 TO N 
120 PRINT' X^"IN KS 
130 INPUT ARCK3SN{ x r 

140 IF ARC03~0 THEN PRINT SPRINT "Koeffic 
ienten til x^'SN; skal v»re <>0. sPRlNTs 

GOTO 100 

150 CLS SPRINT '• Redldel lm 

eg.de1"SPRINT 

160 IF ART NT <>0 GOTO 180 

170 PI -0: p 2-0:GOSUB 1 150SN-:N l sGOTO 160 

180 IF N<=2 GOTO 840 

130 FOR K=0 TO N-l 

200 ALCK3-ARCK3*CN -K3SNEXT 

210 R-ARCN3 snUEXPCLOGCABSCR/ARC03 3 3/N3 

220 FOR K-l TO N-l 

230 IF ARCK 3-0 GOTO 260 

240 U=EXPCL06CABSCR^AR(K)5VCN-K)) 

250 IF u<ni THEN ni=u 
260 NEXT 

270 X0=0SV0=0srr-ARCN1*ARCN1SF0^FFSXQ-AR 
(NilSYQ~0 
280 U=ni/2SX- U 
290 IF ARCN)*XO<0 THEN X^-X 
300 OX--x:v^-0 sDY-0 sGOSUB 1090 sH-1 
310 EP-F0J.C 2»NC5E 14 3*C 2*N*5E - 141 
320 IF U+ABSCDX3+ABSCDY3--U OR F<£P GOTO 
800 

330 XZXSVZ-YSNZ-N 1 

340 FOR KZ-0 TO n l 

350 AZCKZ1-AL CK23SNEXT 

360 GOSUB 1030 

370 XP=XG sYP-YG:U~D 

380 IF U<>0 GOTO 400 

390 U=DX5DX=-DY*2:DY=U:G0T0 490 

400 DX"CXF*XP + YF*vp VUSDY-CYFXXP-XfJtYPl^ 

U 

410 R0-(X X03*CX-X03*CY-Y03*CY-Y03 

420 F2=CCXP XQ1 * CX p -XQ1♦f YP YQ )*(YP-YQ11 

/R0 

430 IF F2'U<-Ux4/F AND F-FF THEN H-Hi:G 
OTO 450 
440 H-] 

450 R^DX*OX*DY*DY 

460 IF RU25*R0 GOTO 490 

470 R=SQRC25*R0/R3:U=OXsQX-C.4*DX -.3*DY1 
*R 

480 DY=(.3*U*.4*DY1*R 

490 X0=XSV0=YSXQ = XP5YQ-.YPsr0-.E 

500 X=X0- OX SA-X SY=Y0-DY SB-Y 

510 GOSUB 1090 sFF=F 

520 IF HOI GOTO 690 

530 J=l:D2=F>F0 

540 IF J>N GOTO 680 

550 IF 02 THEN OX--OX>'2:DY=Dy^2sA-x0 DXSB 


/ 55H I* 02 THEN DX- 
-Y0-DY sGOTO 570 , 
560 A-A nx:R:R-ny 


560 A=A-DXSB-B-OY 
570 X2-A:yz=B SNZ-N 
580 FOR KZ-0 TO N 
590 AZCK?1=ARCKZ3SNEXT 


600 GOSUB 1030 
610 AF - XG:BF-YG SPA-D 
620 IF FA^ =-E GOTO 660 
630 F-FAsxr-AF svr-BE SX-ASY-BS .1 JM 
640 IF D2 AND J-3 THEN X--X0*DYSY V0 (jXSG 
•SSi-'B 1090 : J-N+1 
650 GOTO 670 
660 J=N+l 
670 GOTO 540 
680 GOTO 750 
690 IF HO0 GOTO 750 

700 Q=X*X*Y*Y:P=2*(-XIsA=SQRCQ3sS=0:EP=A 
BSC ARC 03 3*. 75 
710 T=ARC03SR=T 
720 FOR K=1 TO N 

730 T=ARCK3-P*R-Q*S:S=R:R=T:EP=EP*A+ABSC 
T3 SNEXT 

740 EP=C C4*EP- 3*CABSC T3+ABSCS3*A3+ABSCX* 
S33*5E-143sEP=EP*EP 
750 U=ABSCX3*ABSCY3 

760 IF ABSCDX3+ABS(DY)U16 A C-83*U OR F<F 
0 GOTO 790 

770 X=X0 SY=Y0sRr.4*DX-.3*DY SDY=.3*DX+.4* 
DYSDX=R 

780 IF U+ABSCDX3+ABSCDY3OU GOTO 500 
790 GOTO 320 

800 P=-2*XSQ=X*XSR=0SS=0 

810 FOR K=0 TO N-2 

820 T-ARCK] P*R- Q*S:S“R:R-T SNEXT 

830 T = ARCN-n-CP*R*Q*S3 

840 IF CARC N3♦C X*T-Q*R 33*C ARCN3+CXXT-QXR 
3 3>F GOTO 890 
850 R-0 

860 FOR K=0 TO N-l 

870 R=R*X+ARCK3SARCK3=RSNEXT 

880 P1=X5P2=0:GOSUB 1150sN=N-1sGOTO 930 

890 R=0 sS=0:P=-2*X sQ=X*X + Y*Y 

900 FOR K=0 TO N-2 

910 T=ARCK3-PXR-Q*S:ARCKD=T:S=R:R=TsNEXT 

920 PI=X sP2=-Y sGOSUB 1150:P2=YsGOSUB 115 

0SN=N-2 

930 GOTO 180 

940 IF N=1 THEN PU-ARC1 3/ARC03 sP2=0:GOS 

UB 1150sGOTO 1.90 

950 U=ARC13*ARC13-4*ARC03*ARC23 

960 IF U>=0 GOTO 990 

970 R=2*ARC03:S=SQR(-U3/R 

980 Pi=-ARC13/R sP2=-SsGOSUB 1150: p 2=SsGO 

SUB 1150sGOTO 1190 

990 IF ARCl)-0 THEN R^SQRC-ARC23/ARC033: 
GOTO 1010 

1000 R=(-l-SQRCU/ARC13/ARC 13 3 3*ARC 13/C2* 
ARC 0 3 3 

1010 PI -ARC23/CARC03*R3 sP2=0:GOSUB 1150: 
PUR sGOSUB 1150 
1020 GOTO 1190 

1030 PZ=-2*XZsQZ=XZ*XZ-*-YZ*YZ:RZ-0:SZ=0 
1040 FOR KZ=0 TO NZ~2 

1050 TZ=AZCKZ3-PZ*RZ-QZ*SZ sSZ-RZ:RZ=TZ:N 
EXT 

1060 TZ=AZCNZ-13-CPZ*RZ*QZ*SZ3 

1070 XG=AZCNZ3 + CXZ*TZ-QZ*RZ3 :yg=YZ*TZ:D= 

XG*XG+YG*YG 

1080 RETURN 

1090 XZ-X:YZ=YSNZ=N 

1100 FOR KZ=0 TO N 

1110 AZCKZ3=ARCKZ3:NEXT 

1120 GOSUB 1030 

1130 XF=XG sYF=YG sF-D 

1140 RETURN 

1150 PRINT USING A*S p lS 
1160 PRINT " •*: 

1170 PRINT USING A*: p 2 
1180 RETURN 
1190 END 
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780 U6-CMR6<2l3> 

790 L6=CHR4<204* 

800 M6*CHRt(203» 

810 N6-CHR4 < 206 > 

820 04-CHR4<207> 

330 H6»CHR6(200> 

340 1*»CMR*(201> 

830 J6-CHR6(202> 

860 K6-CHR6<203) 

870 Q6-CHR6<209) 

880 R6-CHR6<210> 

390 S6-CHR6(2ll> 

900 V6-CHR6)214) 

910 W4-CHR61213) 

920 RETURN 

930 RE51URE 930*FOR n-1 TO 21* READ a*KEY 
D£F a. 1.96*r,, 64*n, 199»r. 

940 NEXTlRETURN 

930 DATA 69.34.62.61.38.53.52.44.35.43.3 
7. 36. 38. 46. 34 . 27. 67. SO. 60. 31.42 
960 RESTORE 930*F0R n-1 TO 21(READ a*KEV 
DEF a. 1.96>r.. 64*n. n-< 1 AND n <3J 
970 NEXT ns RETURN 

980 INK 0.1 SINK 2.7 SINK 6. 11 SINK 7.4 SINK 
8. 13s INK 9. 1 7s INK 12. 19s INK. 14. 3 
990 NODE Os POKE 4A43D.30 
1000 PAPER 3s PEN 9s PRINT " AMSTRAD TRAF 
FIC -s»PRINT,1 

1010 LOCATE 1,4sPAPER 10s PEN 3 
1020 PAPER 10IPEN 3s PRINT Y6SZ4" "I* PE 
NOsPRINT xa; y*:y*:Z»" 'ssPEN 14:PRINT 
I*SY*SY*lZ* M "S s PEN 3* PRINT XasoPRINT. 


80 n,-0*GOSUB 1630 
90 GOSUB 1400 
100 GOSUB 710 
110 ENV 1.3.2. 1 
120 ENV 2.10.-1.2 
130 ENV 3. 13.-1. 10 
140 OOSUB 1260 

130 aan-9: noma-0:acora-O*oau«a-100 
160 GOSUB 980 

170 aPRINT.12SPOKE 4A43D.44 

180 GOSUB 660 

190 ZONE 12*Chr*-0*kl-13 

200 yl-23*coiIX-12 *h2-x 1:y2«y1 

210 LOCATE xl.rllPEN 3s PAPER coll**PRINT 


1330 PEN 1sPRINTsPRINT "Naar alia f<ra n 
uliar or bruit, v.l haa-t>ahadan bl iva * 
at op. " 

1340 PEN 1SPRINTSPRINT "Oa "l*PEN 2SPRIN 
T V**uas:PEN 1 SPRINT * viI faa an van ti 
i vad ♦iodan.“ 

1330 PRINTsPRINT "Du kan «aa fram oa til 
s.dan. mar. .kka tilbaaa'" 

1360 PRINTsPRINT “Brua .oyat.cx altar cu 
nor kart (J/C). " 

1370 IF INKEY*<>““ THEN 1370 
1380 IF INKEY*-*" THEN 1380 
1390 RETURN 

1400 SYMBOL 200.IS. 18. 34. 127.233.233.40. 
16 

1410 SYMBOL 201.128.64.32.234.254,233.40 
. 16 

1420 SYMBOL 202.1.2.4.127.127.233.20.8 
1430 SYMBOL 203.240.72.68.234.255.233.20 


220 PEN 3iLOCATE 12.24 s PAPER 10s PRINT "M 
EN"S aan t 

230 LOCATE 12.23s PAPER 9s PRINT "HI“«h.l 
240 LOCATE 1.24iPAPER 11 SPRINT “SCORE"la 
cora.saPRlNT.24 

230 IF INKEY(O)-0 OR INKEY(72)-0 THEN 23 


260 IF INKEY(0)-0 OR INKEY<72)-0 THEN *2 
-y l-2 

270 IF INKEY(1)-0 OR INKEY(73)-0 THEN *2 

-»!♦! 

280 IF *2-21 THEN k2-20 

290 IF INKEY(8)-0 OR INKEY(74)-0 THEN n2 


1440 SYMBOL 204.127.127.127.127.127.233. 

21.8 

1430 SYMBOL 205.254.234.234.234.253.233. 
64. 128 

1460 SYMBOL 206.0.248.196.196.236.254.60 


Spillet er en Amstrad udgave 
at det kendte arkadespil Frog- 
ger. I denne udgave er der 
gjort god brug af farver og 
gralik. For at muliggore den 
lcekre grafik, har vi voeret 
nodsaget til at gore brug al 
nogle ekstra maskinkoderuti- 
ner. 

Disse rutiner er lavet som ek¬ 
stra BASIC instruktioner via de 
sdkaldte RSX's. Det betyder 
Resident System extension. 
Om systemet kan man se me¬ 
re mere i Amsoft's Amstrad 
Operationg System Firmware 
Specification. 

Ndr du indtaster programmet 
skal du vcere opmoerksom 
pd, at de smd o'er der fore- 
kommer i listningen ikke er 
o'er, men derimod den lod- 
rette streg, der fits ved at tryk- 
ke SHIFT+‘ (snabel a). @ 

Ndr spillet er indtastet, skrives 
GOTO 1800 for at SAVE pro¬ 
grammet. Ndr du skal starte 
spillet, tast CTRL+ENTER. Du 
kan/skal ikke starte program- 
met pd andre mdder. I ovrigt 
er spillet selvforklarende. 

Michael Jeppesen 


300 IF »2-0 THEN k2-l 

310 col2*-12-(7 AND y2> 13 AND r2<23)-<2 
AND r2>3 AND y2<12)-<8 AND y2-3) 

320 LOCATE kl.ylsPAPER coil**PEN 3SPRINT 


1030 LOCATE 2.4SPEN 68 PRINT CHR*t233>SL0 
CATE 1.6 

1040 PEN 6 s PR I NT " "T*lT*tT*“ "T**" - 
** "T*lT*S T* M "I 

1030 PEN 13*PRINT " "A*SB*" "A*s3*" 

*A*;B*" “A*sB*5 

1060 PEN. 7SPRINT “ “**!v*iY*tZ*T* PEN Z 

: *R I NT " , X*5Y*SV*s Y*;Z*“ "SoPRi.vT 


1480 SYMBOL 208.36.40.146.124.36.36.40.1 
08 

1490 SYMBOL 209.0.31.33.33. 127.127.20.8 
1300 SYMBOL 210.127.127.127.127.253.233. 
2.1 

1310 SYMBOL 211.234.234.234.234.234.253. 
168. 16 

1320 SYMBOL 212.16.41.199.0.38.0.0.0 
1330 SYMBOL 213.0.68.253.68.68.233.68.0 
1340 SYMBOL 216.0.34.83.143.151.163.160. 


330 aLSCROLL.4.3. 8.9. 19. 20. 21 
340 aRSCROLL.7.11,13.16. 17 
330 IF RND <0. 5 THEN aLSCROLL. 12. 13. 12. 13 
ELSE aRSCROLL.12. 13. 12. 13 
360 IF horna)3 THEN aRSCROLL.17*aLSCROLL. 
19 

370 IF noma)7 THEN aRSCROLL.7.11 

380 IF noma)11 THEN aRSCROLL.13.16.17*aL 

SCROLL. 19. 20. 21 

390 IF hona) 13 THEN aLSCROLL. 4. 3. 8. 9* aRS 
CROLL. 7. 11 

400 PAPER col2**L0CATE k2. y2 
410 aCHR. 8chrX* IF cnr*<>32 THEN 480 
420 PEN 3* IF y2-3 THEN 550 
430 PRINT P* 

440 IF y2<yl THEN SOUND 2.30.20.15.2*»CO 
ra«acora-*3!L0CATE 1.24 s PAPER 11: PEN 3*PR 
INT "SCORE"SacoratePRlNT.24 
450 x1-k 2* yl-y2*coilX-coi2* 

460 FOR N—1 TO oauaasNEXT 
470 GOTO 260 

680 SOUND 7.0.120.15.3.0.15 
490 aan-Man-1 * IF man>-0 THEN 200 
500 IF acoraln. THEN n»-—eor* 

510 LOCATE 1.22*PAPER 1*PEN l5*PRINT " 
GAME OVER "5 

320 PRINT " Y for at nyt sp.i. " 

330 IF INKEY*»"Y“ OR INKEY*-"y“ THEN GOT 
0 90 

340 GOTO 530 

350 PAPER 4*PRINT P*sGOSUB 720 
560 acora-acora+5S:noma-noma*: 

370 IF noma/4<>noMa04 THEN 3CTO 200 

380 POKE 4A45D.80sGOSUB 1220 

390 FOR n—4 TO noma STEP 4 

600 LOCATE RND-19.12*«CHR.3cnr*tIF C nr*< 

>32 THEN 600 

610 PRINT V«SW* 

620 NEXT 

630 IF noma) 16 THEN noma-O:oauaa-0 
640 icora-acora+acora05 
630 00TO 170 
660 RESTORE 670 

670 DATA 233..1.233..1,190.. 3.253..03. :3 

0.. 03. 233.. 05. 190. . 03. 130. 1 

680 FOR n-1 TO 8* READ a.b*SOUND 2 a. 

b.O. 1 

690 NEXT 

700 RETURN 

710 T*-CHR*(212> 

720 P»-CmR*(208) 

730 A*-CHR*C2l9> 

740 B*-CmR*i220> 

750 X*=CMR*(216) 

760 Y*=CHR*(217) 

770 Z*=CHR*(2:8 > 


1070 FOR n-0 TO 12*POKE 4DA8E*n,3:NEXT 
1080 PEN 4: PRINT T*tT*“ "T*ST*ST**' 

“T* S T* S T*" "T»S T*t 

1090 PEN 13*PRINT A*sB*“ "A*SB*“ "A 
*:B*" "A* s B*“ "I 

1100 PAPER 5* PEN 4:LOCATE 1.16IPRINT U*s 
U* S U* $ U* 5 U* S U* S U* S U* S U* * U* IU* S U* S U* S U* S U 
*SU«SU*SU*SU*SU*S 

1110 PEN 13SPRINT L*IM*SL*SM*SN*- “StP 
EN 1:PRINT L*SM*SN*" "I * PEN 7*PRINT L 
* tM*s M* s N*“ * * aPRINT.15 

1120 PEN 11 * PRINT “ “0*" "I * PEN 10*PR 

INT H8SI*” “5 S PEN 8< PRINT H*Sl*“ “tlP 
EN 4sPRINT 0*" “SiPEN 9*PR1NT H*Sl*S 
1130 PEN 4:PRINT •■-mmm-mmmm -| 
1140 PEN 14 s PRINT J* S K*“ “SiPEN lsPRINT 
0*" "SSPEN 12*PRINT J*5K*“ "J:PEN 11 

SPRINT J* S K*" S 

1130 PEN OsPRINT * “0*:R*sS*“ “l*PEN 

9sPRINT 0*s R* sS*s R*sS*" "ssPEN 6*PRIN 

T 0* s R* s S* * aPRINT.20 

1160 DATA 01000101000110111011100100110. 
10101010101000010010101010101.1110101010 
1100010011001110101.10101010100010010010 
101010101.10101010101100010010101010110 
1170 RESTORE 1160SF0R m-1 TO 3* READ a* 
1180 FOR n-1 TO LEN<a4)*IF MID*<a*.n.1>- 
"1“ THEN PLOT 4*n*4.l70-2*m.13 
1190 NEXT:NEXT 

1200 LOCATE 1.22s PEN 5*PAPER 12*PRINT U* 
s u* : U* * U* S u* : U* s u* s u* s u* s u* s u* s u* s u» s u* s 

U*SU*SU*tU«IU*SU*S 

1210 PRINT " "I 

1220 PAPER 12*PEN 5*L0CATE 1.3*F0R n-1 T 

0 20:PRINT CHR*(213)* * NEXT 

1230 PAPER 6 * FOR n-0 TO 3*L0CATE n*5*3.3 

*PRINT * “SNEXT 

1240 PAPER 12* PEN 3«L0CATE 1.12*PRINT “ 

"V*IH*" 

1230 RETURN 

1260 INK 0.0* INK 1.24* INK 2. 16* PAPER 0*P 
EN 1 

1270 MODE 1*LOCATE 17. 2*PRINT "OPGAVE“*P 
RINTSPRINT 

1280 PRINT "Faa "l*PEN 2*PRINT P**PEN 1* 
PRINT “a.Kkart ovar vajan oa fiodan.unda 
Ml 

1290 PEN 2* PRINT H*sl*” "L*IM*IN*" "0*" 
•xasYasz*" *A*s B»"." 


1330 SYMBOL 213.0.68.170.241.233.197,3.0 
1360 SYMBOL 216.16. 16. 16.234.63.31.13. 7 
1370 SYMBOL 217.0.0.0.0.30.233.255.233 
1380 SYMBOL 218.96.124.84.120.127.233.23 
4.232 

1390 SYMBOL 219.0.0.3.2.13.63.255.0 
1600 SYMBOL 220,6.12.152.240.224.85.255. 


1610 SYMBOL 253.96.96.124,124.84,84.120. 

120 

1620 RETURN 

1630 SYMBOL AFTER 32*MEMORY 4A3FF 

1640 INK 0,8* INK l. 13. 23*SPEED INK 30.30 

sMODE 0 

1650 LOCATE 1.10*PRINT "VENT VENT VENT V 
ENT" 

1660 RESTORE 1710 

1670 FQR n-6A400 TO 4A4C3 

1680 READ aaSPOKE r..VAL ("4"*a4> 

.690 NEXT;CALL *A400 
1700 RETURN 

1710 DATA 01.0a. *4. 21. Oa. a4. cd. *1. be. c9. 
OO. 00. 00. OO. 1c. a4. <3. 47. a4. c3. 7b. a4. c3. 9 
C.a4. c3. od. a4. 30. 52* 49. 4a, d4. 4c. 53. 43. 52 
. 4f . 4c, CC. 32. 33. 43. 32. 4< . 4c. CC. 43. 48. d2, 

00 

.720 DATA od. 6a. 00. dd. 23. dd. 23. 2d. 26. 00. 
29. 29. 29. 29. *5. dl. 29, 29. :9. <9 
730 DATA co. 33.a4. 11.00.+8. 19. ab. 21.30. 
00. IS. ab. Oa. 02. a5. 06. 04. cS 
1740 DATA Oa. 02. 06. 30. a3. d3. 7a. 12.23.13. 


1730 DA~A di. 7a. d6. 08. 57, al. Od-20. ad 
1760 DATA 7c d6. 08. 67. cl. 10. 43. dl. Od, 20. 
jc. *:9 

•770 DATA «3. ca. 33. a4. 11.00. cO. 19. 06. <>S. 

:3. a3. dl. 23. Ol. 4f. 00, la. ad. bO. 12. 01. »0. 0 

7.09. cl. 10. aa. 3«. 2C. aO. cS 

1730 DATA f3.Cd.33.a4. 4f. cO.:9.06-08. 

•:3. 43. ai. 2b. 01.4«. 00. la. ad. bS. .2. 0!. 3-0. 0 

8.09.cl. 10. aa. fl.3d. 20. aO. :3 

1730 DA~A «j 5. ce.60. Db. al. 77. :5 

1800 SPEED WRl "£ 1tSAVC M_ RAFF;C 

,310 SPEED URiTE 0*SAVE " “RAFF!I" 

.320 PRINT "ram.nd and CAT to var.'y" 
:830 END 





















y 



■ Dette program kan gore dig 
sikker i alle relevante daglig- 
dags spergsmdl. - endda pd 
en morsom mdde. 
Quizmaster starter med at tyl- 
de skcermen med sporgs- 
mdlstegn. og venter pd et 
tasttryk. Straks etter dette tryk, 
kommer forste spergsmdl 


Hvis du svarer rigtigt, vil du id 
en stigende 1yd. Tilvarende 
giver et torkert en nedadgd- 
ende 1yd. 

Programmet er lavet, sd det 
accepterer torskellige svar. 
F.eks.: 

Hvilket dyr kaldes Jumbo? 
Elelant 


Eletanten 

Er det ikke eletanten? 

Alle svar vil blive godkendt, 
og du vil td ' 'rigtigt''. Hvis du 
taster Eletanten (med stort) 
bliver dit svar torkert. 
Bemasrk at pundtegnet er 
brugt som ce og d. 0 = 0 . 

Du kan selv lave Here eller 


tcerre sporgsmdl. De nye da- 
talinier skal indtastes med 
sporgsmdl, svar i rcekketolge. 
Der er 113 sporgsmdl i pro¬ 
grammet, men tastes blot tid- 
ligere som data, vil du slippe 
tor at taste alle data ind.D 

Lars R, Salquist 



PRDDROM s GUJ I Z - TOT 
1 LET C*—” 

3 POKE 332BO,OsPOKE 3328 1 , O a REM SORT SK 
0RM, KUN RDF? C —<£»4* 

lO PRINT CHR*<147)i CHF?*aai. CHR»<2B) IRE 
M REMS BK0RM, TEXT MODE DO ROD PRRYE 
20 PRINT" 

30 PRINT’* 

>♦» * 1 

^0 PRINT” t< —OMPUTER — - U I Z 

” 

=50 PRINT" ^ 

•• 

6 > O PRINT” 


65 IR 0—1 THEN RETURN 

66 O— 1 

70 PR INT * PR INT * PRINT CHR* < 30 > " 

YE T OR a " 

s REM CMR* < 30 > — ORON R R ROE 
SO PRINTS RRINT CMR*<138:»” 

^_RUB ERBBON ” 

: rPm CHR* < lSS'J — DUL PRRYE 
BO PR INTi PR I NT CMR*<138>" 

«r”*REM CWR* < 1 59 > — LYSE ORON 
lOO PRINT ■ PRINT CMR*<13B.»" — 

ORB ■- “OLKVI BT _ •* i REM CMR»<lSOI— DUL 
1 03™ PrT: NT ■ PRINT « PRINT CMR*<30I” 

_ RYK EN TOBT. ” « PRINT ■ PRINT 
■ REM CHR* <30) - ORON 
X 06 ■ 

107 REM L I N J" E llO TIL L I N JE 130 KUN ROR 

COMMODORE 6>4* 

i oe ■ 

1 03 ■ 

llO B I -34272 8 POKE BI-*-3, O s POKE B I , 268 ■ 
POKE BI>6, 6>3 s POKE S I +26, 1 3 ■ POKE S I 1 , O 
120 P —4*00*P0R L—XO TO 1 30 ■ P — P— X O ■ POKE B 

I 1 , L v 

130 OE T O* s IR O*-” "THEN ROR Q—1 TO P ■ NE 

XTs PRINT”'?”* ■ NEXT s OOTO X 20 

1 4*0 POKE BI-*-24*,ObC*—”<MYID, ROD, CYRN, LIL 
LR .ORON,BLOD,DUL,DRRNDE,BRUN,L-ROD, 

ORRR1, C3RRR2, L- ORON, L- BLAP, OR««3> " 

1 30 POKE 3328 X , O■ POKE 33280,0 

131 REM KUN ROR IKKE £>4t — ERE * * DCTP*i 

I ER*—"”TMENOOTOXS1 

132 LET L—2008 PRINT CHR*<147)■REM CMR* 
<147)-RENB BKORM 

160 READ Pt*, 8* s I R TMEN OOTO 1OOO 

O 

161 LET Cl— Cl-*-l«IE Cl — 1 A TMEN LET Cl —X 

162 OOBUB XO 

163 PRINT CMR* < 1 3 :» 8 REM CURSOR MOME 

166 ROR X—O TO IBs PRINT iNEXT 

163 PRINT” RIOTIOE BVPR”»TR 

166 P RINT" RORKERTE SYRR”8KI 

1 67 PRINT” BPOROBMOPL" I KI+-TO 

168 PRINT CM R* <19)* REM CURSOR MOME 

169 ROR X—O TO IBs PRINT ■ NEXT 

176 PRINT TRBC20) “EDRRIOE SOB R” 

177 PRINT TPB<21)"VPR ”*R* 

178 P RINT CMR* ( 19) » REM CURSOR MOME 

173 ROR X —O TO 3* PRINT 8 NEXT 

1 BO PRINT MID*<C*, Cl, 1 ) 1 P* 

130 PRINTS INPUT” ” 8 D* 

200 ROR R—1 TO LEN< D*) s IR MID* (D*. P, LEN 

<B*)>—B*TMEN ODTO 300 
210 NEXT 

2 13 8 

216 REM L I NJE 220 — L YD , KUN ROR C — *4* 

220 POKE BI-+26, ISsEOR L-140 TO 20 STEP — 
1 8 POKE B I -*■ 1 , L 8 NEXT 8 POKE B I +24, O 

223 LET R*—"PORKERT" 8 PRINT 8 PRINT" 

230 PR^NtArINT” ■ ET RIOTIOE SVRR 

YRR s " 

240 PRINT” ” 8 B* 

230 PRINT 8 PRINT a PRINT” B RYK E 

N TPBT. ' RUB DRR > " 8 LET K I —K I -+- 1 

260 OET R* a I R R*—” "TMEN OOTO 260 

270 OOTO 160 

300 a 

301 REM L I NJE 302 — L YD, KUN ROR C — *4* 

302 POKE S I -+-24* , 13a R DR L —20 TO 1 60 a POKE 

SI-+-1, L a NEXT a POKE BI+24, O 

310 LET R* —** R I OT I OT ” a LET TR —TR-+- 1 a PRINT a 


PRINTS PRINT" "JTj ! ! ! * ! " 

=54*0 PRINT * PRINT S PRINT” “ m RYK E 

N TRST. " 

=530 OET P* : I R R*—" "TMEN 330 


360 OOTO 160 
1OOOO PRINT 
10003 PRINT * 
PR ” * K I+TP* ” 


CMR* < 167) a REM RENB BKORM 
PRINT a PRINT s PRINT * PRINT" UD 
BPOROSMRRL BESYRREDE"* 


10010 PRINT” DU ” 8 TR 8 ” RIOTIOE’, OO DU B 

EBYRREDE " 8 KI 8 " RORKE RT . ” 

10020 END 

10300 a 

10301 8 

10302 a 

10303 a 

1 030*0. a 

10303 REM DU KRN BELY L RYE RLE RE OUI Z — 

BPOROSMRRL YED RT LPYE RLERE DR 

TRB 

1 0306. 8 

10307 REM DU BKRL BLOT OORE SRRDRN a 

DRTR BPOROBMRRLET , SYRRET 

1OSOB a 

10308 a 

1031O 8 

30000 DRTR” -YILKET DYR KRLDEB UMBO”, EL 
EERNT 

30001 DRTR” -YRD SYMBOLIBERER ■ E REM OLY 
MPISKE -INOE" , REM YERDENBDELE 

30002 BRTR" JYOR LIOOER 1UROPRB MOJEBTE 

BRO < ■ URDPRBROEN > ” , OBTR I O 

30003 DRTR" -YOR LIODER BROEN GOLDEN ^RT 

E C LOB -LI—BTRI R L-RCLERN ) ” , 

BRN RRRNBISCO 

30004* DRTR ” -YOR MRNOE PILLER MYILER ^TO 

RBTROMBBROEN PRR < TRL > ” , 69 

30003 DRTR" -YDRNRRR BLEY - EN ORMLE —ILL 

EBOLTSBRO INDYIET <TRL> " , 1833 

30006 DRTR” -YD R MRNOE BRDER ER DER MELL 

EM "VOBENMRYN OO - MROER < TRL > ” , 4* 

30007 DRTR ” -YRD BTRRR EOR ” , KOBENMR 

YNB BDLDKLUB 

3000B DRTR” -YOR BLEY JJDYIG «DL BE RO POD 

T”,BEROEN 

30008 DRTR ” -YRD MED «-R I DTJOF JRNE3E N POL 

RRBKIB”, P RRM 

30010 DRTR” • YIL KEN PRRYE MR R EN ERRNTIB 

” , OUL 

30011 DRTR" -YRD MED "BRETR-IN ^COTTS POLR 

RBKI8”,DIBCOYERY 

30012 DRTR” -YRD MED «-*_EMM I NO --LINDTS BE 


NBRTIONELLE NODENBRLLET",DODENS TRIUMP 
30013 DRTR" -YRD ME DDER - N DERB - ND I | — 
”,DDNRLD DUCK 

300 1 4* DRTR" -YRD MED DEN DUKKE --NOR I D LE 
OEDE MED I VKKRSBEN", LILLEBROR 

30013 DRTR” -YRD MEDDER LI CKEY LDUBE’ S M 
UND”,PLUTO 

300 1 <S DRTR ” DO - I NT IN’ B ” , TERRY 

30017 DRTR" -YOR ER — —- - NDERSEN PODT", 

DDENBE 

30018 DRTR” -YOR BLEY , ORDENBKJOLD PODT” 
,TRONDMJEM 

30018 DRTR " -YRD BTRRR --- POR”, CIYIL P 

ORBYRRET 

30020 DRTR" -YOR MRNOE LYS ER DER I EN R 
DYENTBKRRNB < SYRR MED BOOBTRYER >", 

P I RE 

30021 DRTR” -YOR ER ^R POLEON PODT < E N O > 
",KORBIKR 

30022 DRTR”- DRM OO ... ”, EYR 

30023 DRTR” «YEM KOMPONEREDE -RYLLEPLOJT 
EN”, MO Z RRT 

30024* DRTR ” -YRD MED . E ORMLE —RB YL ONERS 
BKRIPT",MIEROOLYPPER 

30023 DRTR ’■ -YRD ME DDE R BTRODET MELLEM — 
ICILIEN OO -EN ITRLIENBKE "TOYLESPIDS” 

30026 DRTR MISBINR—STR0DET 

30027 DRTR" -YILKET LRND YRR ICRBBO POD 
T I ”, BPRNIEN 

30028 DRTR" -YRD YRR - ORDENBKJOLDB RIOTI 
C3E NRYN”, PETER WEBB EL 

30028 DRTR ” -YRD BTRRR «-. PDR”, PORENED 

E NRTIONER 

30030 DRTR” -YILKET POLK BRUOTE TOTEMPOL 
E ** , INDIRNER 

30031 DRTR" -YOR ER ^EETMOYEN PODT", BONN 

30032 DRTR" OETEN OO.LILLEMOR 

30033 DRTR” -YEM KOMPONEREDE fcRRNEBKINBB 
ONRTEN",BEETHOVEN 

30034* DRTR " -YRCT MEDDER TEONEBERIEN ^-RD I 
BERNE I SIT MJEMLRND",PERNUTB 

30033 DRTR" -YDR MRNOE ETROER ER DER PRR 

■ MPIRE -TRTE RJILDIND I JE W JJDRK 

. < TRL) ” 

3003* DRTR 102, ” -Y R D MEDDER MOYEDBT RDEN 

I "YRIEN”,DRMRBKUB 

30637 DRTR" -YRD MEDDER - RNMRRKB BYDLIOB 
TE KOBBTRD”,NYBTED 

3003B DRTR” -YOR MRNOE UOER ER DER MELLE 
M PRRBKE OO PINBK < TRL > " , 7 

3004*0 DRTR" -YDRORN PORKORTEB KILOORRM", 

KO 


46 










































































































































*RTIN -UTK 


■ . BOKTUB 
EM DER LOBE R 


5006 1 DMTM ■* ■S/DR E F 

LPND) ". TYBKLfiND 

SOO**2 DPTA" VRIUB DO . . 

50066 DOTfi" .VRD ME DDER 
X DENNEM RMO". MOLDMU 

50065 DMTM" .V □ R MONDE RODE EDBTKMBBER V 

MR DER I . MMMMRK I 1 BV 1 < TML > " . 11123 

50066 DMTM" .VMD ER EM MRMBESK". ORMMMEMT 

50067 DMTM " .V I LKET DMDBLMD LMMCEREDE I 
1902 DRDET ’ B I L ' I BTEDET EOR MUTOMQB 

XL" 

5006B DMTM POLITIKEM 

300/4.3 DMTM ** -VMD BT MMR O-TU EOR". OB T MB I M 

TIBK KOMPMONI 

30030 DMTM" 1 R DER ET « TRE ELLER EEM RUM 

I EM 0RTEB0LO C MED BOOST- X"ET 

30031 DMTM" .S/OR ER — ™- ORBTED EODT " . RU 
DKOBIMO 

30032 DMTM ** ."YRTMMRMET DO ........ " . B I VO 

OMEM 

30033 DMTM •' .VMD REDDER EMRVMMDET I MELLE 

M LON DO ^MLBTER".OROMBUMD 

50056 DMTM*' .V ILKEN KORMSORT ER DEM M I MD 
BTE I a MMMMRK ** , BVO 

30033 DMTM •• .VMD MED .EM B I D BT E RUBB I BKE 
■MR*'. MICOLM-J 

50056 DMTM" .VMD REDDER DEM BTORBTE ME . 

E OOVRTIBKE VRMMIDER". CMEDRB RV RMMIDEM 
30037 DMTM"V/MD REDDER DEM BTORBTE ME . 

E MMERXKMMBKE "TMTER".TEXMB 

5003B DMTM" ^/OR MMMOE OL KMM DER V0RE I 

EM OLKMBBE" , 30 

30033 DMTM " .VMD BT MM R | EOR". UM I TED 


R MOVMER 
. TOLLER 
EODT".UDBV 

MOBTBTO 


K X MODOM 

50060 DMTM"■R DET T0LLEREM 
EM DER BTMMR OVER BROKBTREOEM' 

30061 DMTM " .VOR ER »-RUNDT V IO 

30062 DMTM"^V OD . - ". BX 
50063 DMTM" .VMD REDDER . MMMMRKB 

RBTE BO". ESRUM BO 

50066 DMTM" .VOR I BVLLMMD RMR ^EDE BELBK 
MB E T BIT MJEMSTED". V I BORO 

50063 DMTM" .VOR FMNDEB DE ELEBTE ORIMDE 
RVMLER".E0ROERME 

30066 DMTM" .V XLKEN ME DE TO VIBERE BIDD 
ER MORMEST URBKIVEM CBTDR7LILLEJ". 



BOOST 


50067 DMTM" .VMD REDDER DET BIDBTE 

MV I DET OROBKE MLEMBET".OMEOM 

50069 DMTM " .VMD BTMMR ■>- EOR". MEDLEM 

ME EOLKETIMDET 

30070 DMTM" .VOR BOR MDLBOERME". MOLB 

30072 DMTM " ■■OO DO ..... ". OOKKE 

30073 DMTM" .VMD BTMMR | . EOR". KDNBERV 

MTIV UMODOM 

SOOBO DMTM" .VOR BEEINDER MMM BIO NMM R M 
MM IKKE L0MO —ERE KMM OMM MOD BVD". 

BVDPOLEM 

SOOS2 DMTM" "IRC «MR OO ... " . RUP 

300B3 DMTM" .VMD BTMMR «. EOR ”. BOO T ML I 

STIBK POLKEPMP T_I 

30030 DMTM " .VOR MMMOE BTYKKER OMMR D-2R 
EMM TO DUB I M C MED TML. > " . 26 

30032 DMTM" -OMED DO.".JULIE 

30100 DMT M" .VILKE M E MRVE BLOMSTER RMR D 
XLD".OUL 

30102 DMTM"^ORM DEM .", DMMLE 

30110 DMT M" .ED -ITLER ■ LE RED TIL EORMMV 

M".MEJ 

30120 DMTM" .VMD REDDER ■ UBTRMLTLMB BERO 
M_rE KMBTEVMMBEM " . BOOMERMMO 

30 130 DMTM " .VMD KMLDEB DEM DVERHIJD BOM 
RUOORMEM BKIElER". RMM 

301*1.0 DMTM " .V I LKET L MMD EDRB I MDER MMM M 
ED MMVMET .“I DEL —MBTRO". CUBM 

SOISO DMT M " .VMD RED ".B TMM BUL TIDL IOERE" 

.KONBTMNTIMOREL 
SO 1 £>0 DMTM 1 ‘ .VMD 
DMTM " .VMD 


ER 


D RMMIT". STEMMRT 

EM EMOOT" . MUBXKXNHTR 


DMTM * 
DMTM * 


DMTM " .VMD 


ODROONZOI_M" . OBT 

ET TMEEEL". MMMl.T I D 
MIDRONE" . MOVEDR Z ME 
EM EMKTURM".REOMIMO 
ET D I MROB ITTV". LS r >B T 


BIOMMTUR * 


UMDERBK 


30 1 70 
UMEMT 

30 I SO DMTM " .VMD ER 

30 130 DMTM " .VMD ER 

30200 DMTM" .VMD ER 

302 1 O DMTM " .VMD 

30220 DMTM " .VMD 

LLEDE 
30230 
R I ET 

302*4.0 DMTM " .VMD ER LDRDMETTER " . BRILLEP 
30230 DMTM" .V ILKE BMKKER KMM MMM IKKE K 

OLKE RMM".TVEBMKKER 

50260 DMTM" — VMD EB DET MMM BRIBER I kMI 

MO".BKMMMEKDBT 

30270 DMTM" .VMD ER DET DER ER DULT OM D 

PDEN OO OROMT OM NOTTEN".BMNMN 

30200 DMTM" .VMD ER DET EOR EM EUOL DER 

LIBOER MED I MMDRE EUOLES REDER".DOG 

30230 DMTM" -VMD REDDER _ MMMMRKB OBTLlOB 
TE ■WOBBTMD" . BVMMEKE 

30300 DMTM " .V I LKEM I DROT D V RKEDE 5VENF.K 

EREM KMLDET —CMRODER" . TEMMIB 

30310 DMTM" .VMD MED DEM EORBTE KMTOLBKE 

RROBXDEMT I | . KEMMEDV 

30320 DMTM" .VEM RMR LMVET DETTE RROORMM 

".CLMUB RERBBON DO LORE R. SMLKVIBT 

30330 DMTM " «■! RMR 7 RMLBRVI R VL E R 1 R VOR 

MMMOE RMR fclRMEEEM < T ML 1 ". 7 

303*1.0 DMTM" .VMD RED DEM MUB I CML DEM TXD 

LIOE RE EOTO —MODEL , WIDDY EIK BTOR BUBO 


TRE BOV ERIEMD 


.VOR LIDOE 


VULKMMEM 


:klm ■ 


30330 DMTM 
S03*»0 DMTM 1 
X BLMMD 

30370 DM r M" .VMD REDDER 

E BY C O D» ". TRORBRMVM 

S03B0 DMTM" .VMD REDDER 

TE EORBwTERO". MORDKMR 

50390 DMTM" .VOR LIDJER 

T". EX MLMMD 

30*4-00 DMTM" .VMD MEDDfiR 

ELDD".VOLDM 

30*410 DMTM " .VMD REDDER 

M ■ MOL MMD HD VLPND " - I RBKE RMV 

50620 DMTM" .VMD REDDER BJEROEME MELLEh 

■r M MK R I O O r> "I' MM I EM " . EVREM0ERME 

30630 DMTP 1 ".VMD REDDER ■ URORMB 

BJERC3".MOMT BLMMC 

50660 DMTM" JVOR LIOOER B IRPERMRY" . I RLMM 
D 

50650 DMTM ' .V D R I_ I DOER MKBVXO". EOROER 

^30460 DOT«" .VOD MEDDER rfDLLONDB NBSTSTO 

RBTE BV". ROTTERDMM 

30*470 DMTM'* .VOR MEMOLDTES DE OLYMRISKE 
LEOE I 1372"•MUMCWEM 

30*400 DMTM ' V3 OLYMRIMDEM X 1 37*> " . MOM T RE 


■TOROERMES BTORBT 
■URORMB MORDLIOB 


V1MTRM-VMMDEMLDE 
■URORMB BTORBTE 


EMRVMMDET IMELLE 


HOJEBTE 


30*430 DMTM* OLVMRIMDEM 

30300 DMTM *♦**♦* 


1 3BO ' 


Alt om Spectrum maskinkode er booen for alle, der vil ind 
pk det store og spaendende omrAde, so.' maskinkode-pro- 
grammering er. Alt om Spectrum Maskinkode gennemg&r 
pa en simpel og paedagogisk m&de alle de finesser som 
netop Spectrum datamaten har, men er samtidig et godt ud- 
gangspunkt for enhver med en Z-80 baseret computer. 

Bogen beskriver alle instruktionerne for Z-80 mikroprocesso- 
ren, og har specielle afsnit om betingede hop, relative adres- 
ser, underrutiner, bitmanipulering, registeraritmetik, program- 
strukturering og praktisk anvendelse. Som eksempel vises 
hvordan man selv laver et automatspil, med opbygning 
af uhyrer, fremstilling af labyrinter, selvtaenkende rutiner og 
meget mere. 

En lang raekke tabeller gar Alt om Spectrum Maskinkode til 
det perfekte opslagsvaerk og desuden giver bogen anvis- 
ninger pa hvordan man selv kan videreudvikle rutiner og pro¬ 
grammer. 


Kob bogen hos en af nedennaevnte 62 
Bogpa-forhandlere eller ring til forlaget ”ny 
elektronik” pk telefon (01) 11 28 33. 


JYLLAND 

Bjerringbro: Barklins Boghandel 06 
Billund: Billund Boghandel 05 

Brabrand: City Vest Boghandel 06 
Brande: Brande Boghandel 07 

Brerup: Hamann, Brorup Boghandel05 
Egtved: Egtved Boghandel 05 

Esbjerg: Esbjerg Boghandel 05 

Fredericia: Bang P Boger og Foto 05 
Frederikshavn: Dafolo Bogcenter 08 
Give: Give Boghandel 05 

GrenA: Vilh. Hansens Boghandel 06 
Hadsten: Bogcentrct, P. O. Center 06 
Herning: Herning Bogcenter 07 

Rostrup Bogmarked 07 
Holstebro: Hilmer Thomsens Foto 07 
Horsens: Erik Sorensens Boghandel 05 
Hump: ThingArdens Boghandel 07 
Ikast: Ikast Boger og Papir 07 

Kolding: Hauge Rasmussen 05 

Kolind: Kolind Boghandel 06 

Logstor: Balles Boghandel 08 

Mariager: Mariager Boghandel 08 
Nordborg: Nordborg Boghandel 04 
NykobingM: H. Hansens Boghandel 07 
Padborg: Padborg Boghandel 04 
Randers: Lars Jacobsen & Sons 

Boghandel 06 

Rosters Boghandel 06 

Silkeborg: Erh. Sorensens Boghandel06 
Skanderborg: Schmidts Boghandel 06 
Skive: Jungs Boghandel 07 

Skjern: Jacobsens Boghandel 07 
P.W. Boger 07 

Sonderborg: Sonderborg Boghnadel 04 
Tarm: A. G. Madsens Boghandel 07 


681077 
331300 
253644 
180500 
381196 
55 1127 
121177 
921688 
428100 
731016 
321933 
982239 
220575 
126575 
420144 
611711 
951042 
153144 
520070 
392077 
671101 
541008 
451462 
721777 
673108 

4201 16 
4201 13 
820699 
520027 
523233 
351666 
350922 
421820 
371544 


Thisted: Buchholtz Boghandel 
Tender: Jefsens Boghandel 
Vamdrup: Vamdrup Boghandel 
Varde: Kristiansens Boghandel... 
Vejle: Papyrus Boghandel 
VrA: VrA Boghandel 
AbenrA: Bo Bojesens Boghandel 
Alborg: VejgArds Boghandel 
Arhus: Clemens Papir 
Ars: Poul Smits Boghandel 
FYN 

Bogense: Ehlerts Boghandel 
Brenderup: Brenderup Boghandel 
Kerteminde: Kerteminde Avis 
Boghandel 

Nyborg: Nyborg Bogcenter 
Odense: Arensbak Boghandel 
Bogtik 

Ringe: Fjord Nielsens Boghandel 
Svendborg: LUtzens Boghandel 
Sandersa: Sandersa Boghandel 


07-920041 

04-722341 

05-581081 

05-220040 

05-820485 

08-981058 

04-623352 

08-166800 

06-133922 

08-621079 

09-811055 
09-441164 

09-321072 

09-313233 

09-123808 

09-159928 

09-621125 

09-210323 

09-892135 


SJ/ELLAND 
Glostrup: B. 0. Boger, 

Glostrup Cent ret 02-454585 

Holbaek: Wulffs Boghandel 03-430045 

Korsor: Halskov Boghandel 03 - 57 02 64 

Koge: Erh. Jensens Boghandel 03 - 65 02 54 
Lyngby: B. O. Boger, LyngbyCentret02-870445 
Naerum: Torvets Boghandel 02-801345 

Radovre: B. 0. Boger, 

RodovreCentret 01-410485 

Vordingborg: Bog- og Papircentret 03-774246 


F.ER0ERNE 

Torshavn: Bokasalan 


MOBKVM 


042-15283 















Ugedag 


■ Dette program kan bereg- 
ne pd hvilken ugedag, en 
dato falder (ogsd 30. februar). 


NB! Programmet regner efter 
Gregor XIII kalender (den vi 
bruger i dag) og kan sdledes 


Programmet er sikret mod al- ikke gd loengere tilbage i ti¬ 
le torkerte datoer. den end til 1582. □ 

Palle Lyckegdrd 


le torkerte datoer. 





1 0O REM ♦♦♦PFlL L.E L.VCKEGRRRri H JOPRII li .f 

+ :+ 

130 PR I NT '• < CL.R > *' 

131 POKE 532RG■@ POKE 5328t.0 
1 60 D I M DROi *r 6 > - MRNE M f • 1 2 > 

1 7*0 POR X —0 TO 6 
180 RERP DRI3*=*X> 

1 S»0 NEXT X 

£00 DRTR LOPDflO . 80NDRO • MRNDRG .. T 1 RSIiRiT • 
NSDROTORSDRG , FREDRG 
210 FOR X=»1 TO 6 
220 READ f1RNED*<X> 

230 MEXT X 

240 DRTR JRNIJRR . FEBURR . MARTS . RPR T I . MR T 
JIJN I 

245 DRTFl JUL I 0* TGUST . SEPTEMBER. OKTOBE R - 
NOVEMBER.DECEMBER 

246 PRINT 

-'50 REM INTRST I'HTH 

260 PR I M T ** •: HV I D , SPACES > ✓- 

- ■ ■ \ ISt ENT” I 

I" 

270 PR IMT ” I U G EURO 

275 PR I NT ** I 

230 PR INT" ------ 

290 PR IMT 

300 PRIMT , 

310 PRINT" DETTE PROGTRRM KRN UDREOMF M 
VILKEN PRO 1 UGEN/ M 

320 PRIMT" EM GIVEN PRTO FOLDER PAR." 

• 330 PRIMT 

345 PRIMT" (TOST "0" FOR STOP)" 


3 50 
360 
37-0 
380 
3855 
330 
•400 
■4 10 
•420 
•430 
-440 
•450 
•460 
470 
480 
430 
500 
)/4)- 
5 10 
520 
-*-2. 3 > 
530 
7* > 

540 I 

545 1 

546 I 
550 I 

M > ; " 
560 I 


REM INTRST DRTR - 

PR I MT 

IMPUT"<HVID)PRTO: " ; D 

D=IMT C RBS< D > > 

IF D=0 THEM 610 
IP D>31 THEM 360 

PR I MT 

INPUT " MRRMED : " M 

M= I MT <. RBS C M > > 

IP CM<1)+(M>12)THEN 400 

PR I MT 

INPUT " RRR: ";R 

R“IMT < RBS <R > > 

IP R<1582 THEM 440 
REM UDREGM IJGEDRG 
IP M>3 THEM 52* * 

RMTRL DRGE = 365*R + D + 3 1 4- r M— 1 > -f- I MT • • M- 1 

I MT < - 75* C I MT < < R— 1 > X 1 00 >4-1 > > 

GOTO 530 

RN TRLPRGE»365*R + Ii4-3 1 4i ' M-- 1 • — I MT •: _ 4 ♦ Ml 

4- I MT < R/4 > — I MT < . 754* < 1 NT RX 1 00 > 4-1 > . 

UOEDRC-RMTRLDRGE-< IMT < RMTHI DflGE/7 

REM IJDSKR I V UGEPRG 
RR I MT 
PR I MT 

PR I M T " DEM ” STR$ < D > i " - " ; MflNF D t < 

" >STRf<R > 

RRIMT " ERXVRR EM " • DRGJ < I IGFDRG) . " . 


346 PRIMT"<BLfifl>i 


1565 PRIMT 

570 PR I MT " U DR EON MERE < T/M > ' 

500 GET R^= : IP = " "THEM 530 

5:S*0 IP R*”CHR$ < 74 > THEM 360 
600 IF fl#*CHP$<78 'THEN 610 
61R END 


Super grafik 


■ Her er et ganske kort pro¬ 
gram, som kan demonstrere 
AMSTR AD computerens laek- 
re tarvegratik, samt lydtacili- 
teterne.CD 

Henrik Rennest 



AMSTRftD PROGRA, *** GRAFIK DEMO *** 

10 ’ 

20 ’ Lavet af HENRIK RONNEST. 1935. 

30 ’ 

40 f a=l:PLOT 1, 1, 1:M0DE 0:INK 0.0:BORDER 0:INK 1,26:PAPER 0:PEN 1 
50 CLS 
60 DEG 

70 FOR 9=1 TO 360 STEP 2 

30 PLOT 320+200*C0S(9>,200+190*SIN(g>,fa:fa=fa+1:IF fa=15 THEN fa=l 
30 NEXT:-fa=15: R=200 : R2= 185 
100 FOR 9=1 TO 360 STEP fa 

110 PLOT 320,200:DRAW 320+R*C0S(9),200+R2 *SIN<g),fa 
120 NEXT 

130 R=R-10:R2=R2-10 

140 fa=fa-1:IF fa=0 THEN 150 ELSE 100 

150 pause=15:F0R Q=15 TO 1 STEP -1:F0R G=1 TO 15:INK G,Q:S0UND 1,g*25,pause,15:N 
EXT :Pause=Pause-l :NEXT:GOTO 150 


48 £3# 

















Mini Ram Editor 


■ Ofte er de bedste program¬ 
mer, bdde seriase og spille- 
programmer skrevet i ma- 
skinkode tor at opnd hurtig- 
hed. Hvis man onsker at 
cendre pa sit M/C program, 
t.eks. overscette teksten til 
dansk, Idr man problemer. 
Undertegnede skrev i ovrigt 
dette lille program med hen- 
blik pa at overscette det be- 
ramte tekstbehandlingspro- 
gram AMSWORD, sdledes at 
menu/hjoelpe-siden blev 
dansksproget. 

Selve RAM EDITOREN bmges 
ved, at man loader sit ma- 
skinkodeprogram ind i com- 
puteren (husk at cendre HI- 
MEM med MEMORY kom- 
mandoen). Nu starter man sd 


RAM EDITOREN, hvorefter 
man bliver spurgt om start og 
slut adressen pd det omrdde 
at hukommelsen der skal li- 
stes (DUMP'es) ud pd skcer- 
men. Pd skcermen vises sd 
hukommelsens indhold i hex 
iorm i ASCII form. Ndr man 
har fundet, hvorfra RAM'ens 
tekststrenge ligger, kan man 
sd cendre disse (tast 'CHAN¬ 
GE' d.v.s. ' 1'), hvorefter man 
kan indtaste sin nye tekst- 
streng. Hvis man onsker at 
DUMP'e tra en ny adresse skal 
man bare taste '2'. Taster 
man '3' tdr men en pause i sin 
udskrivning og tastes 'SPACE 
BAR' tortsoetter man efter pau- 
sen.D 

Kasper Vad 




AMSTRRD PROGRAM, *** MINI RAM EDITOR *** 

10 ’ MINI RAM EDITOR 
20 ’ 

30 NODE 2 

40 WINDGWS2, 1,73, 5, 20: WINDQW#1, 1, 43, 22, 25: WINDOWS, 1, SO, 1,3 

50 LOCATE 22,1: PRINT "MEMORY DATA (,->ex)": LOCATE 60,1: PRINT "ASCII DATA' 

60 LOCATE 2,3: PRIN'" "ADR. 0I23456739ABCDEF Oil 
3456733ABCDEF" 

70 LOCATE 51,23: PRINT "1 = Change": LOCATE 51,24: PRINT "2 = Dump": LOCATE 51,1 
5: PRINT "3 = Pause, SPACE = Continue" 

SO CLS#1 

SO INPU7#1, "Start ad resse" 5 startad r : IP startadr<0 THEN startadr=startad r+2+16 
100 INPUTttl,"Siut adresse"»sIutadrs IF s; utadr <0 THEN s ; utad r=s I utadr +-2*16 
110 CLS#l: PRINTttl, "MEMORY DUMP: & 1 ; riEX$(startaer > ; " TO &•" ;HEX*Cs I utadr) : 

5.20 CLS#2 

130 FOR memdump=startadr TO siutadr STEP 16 
140 PRINT#2, HEX$(tnemduwp, 4) , " 

150 FOR mem=0 TO 15: PRINT#2,HEX$(PEEK(memdump+mem> , 2)»" “ * 

160 NEXT mem: PRINT#2," "; 

170 FOR mem=0 TO 15: ascii=PEEK(memdump+mem) 

130 PR I NT#2,CHR$(24 AND ascii>127);CHR*(ascii + (asc, i-46)*<Caseii OR 159) = 159> + 1I 
3*(ascii>159));CHR$(24 AND ascii)127); 

190 ,n$=INKEY$ 

200 IF in$="l" THEN 250 ELSE IF in*="2" THEN SO 

210 IF ir.*= ,, 3 H THEN WHILE INKEYSO" -: WEND 

220 NEXT mem 

230 NEXT memdump 

240 GOTO SO 

250 CLS#1 

£60 LOCATE 2,23: INPUT#1,"Change memory from location (hex) ",chstart 
270 INPUT#1,"Input characters to be inserted ",charsf 
2S0 chstart=chstart-l 
290 FOR Ioop=1 TO LEN(chars$) 

300 POKE c hst a r t-t-1 oop, ASC (MI D$ ( c ha r s$, loop, 1)) 

310 NEXT loop 
320 GOTO 30 




























Talpusleri 


COMMO 

DORt 



■ Her er s6 en computerud- 
gave al det gode gamle BOSS 
spil, som mange nok i tidens 
lab har moret sig med. Pro- 
grammet er selvforklarende, 
og meget struktureret i opbyg- 
ningen Det er ligeledes tarve- 
fyldt og tlot i opscetningen. 
Derior - skynd dig at prov det 
for din nabo.D 

Svend Erik Pedersen 


W3fM, 


10 DIM P< 16),G< 16),NK 16),F< 16,4) 

20 FOR ft-1 TO 16 
30 FOR B-l TO 4 
40 REftO C : F< ft ,B > -C 
SO NEXT B:NEXT ft 

60 DftTft 0,0,2,S,0,1,3,6,0,2,4,7,0,3,0,8,1,0,6,9,2,3,7,10,3,6,8,11,4,7,0,12,3,0 
70 DftTft 10,13,6,9,11,14,7,10,12,13,8,11,0,16,9,0,14,0,10,13,13,0,11,14,16,0,12 
80 DftTft 13,0,0 
90 PRINT ■< CLR ) “ 

100 X*8 * Y*6 * GOSUB 1320*PRINT "***********************- 

110 X-8iY-7IG0SUB 1320IPRINT •* *" 

120 X-8IY-8: GOSUB 1320»PRINT "* BOSS SPILLET *" 

130 X *81 Y*9 1 GOSUB 1320*PRINT "* *" 3Q0 f 

140 X-8:Y-10: GOSUB 1320IPRINT -* COPYRIGHT 1983 *"" -on 


140 X-8:Y-10: GOSUB 1320IPRINT "* 
130 X*8 * Y*11 * GOSUB 1320«PRINT "* 
160 X*8iY*12 « GOSUB 1320IPRINT "* 
170 X*8 * Y*13 * GOSUB 1320*PRINT "* 
180 X-8:Y-14: GOSUB 1320*PRINT "* 
190 X*8 * Y*13 * GOSUB 1320IPRINT "* 
200 X*8iY*16» GOSUB 1320*PRINT "* 
210 X*8 * Y*17 « GOSUB 1320«PRINT "* 
220 X*8 * Y*18 * GOSUB 1320IPRINT "* 
230 X*8 :Y-19: GOSUB 1320*PRINT "** 


ERIK PEDERSEN 


EMILIEVEJ 24 


9900 FREDERIKSHftVN * 


230 X-8IY-19: GOSUB 1320«PRINT "***********************" 68Q Jp p 

240 X* 14 * Y*23 * GOSUB 1320IPRINT "ONSKES INSTRUKTION? <J/N)" 6go 

230 GET ft*:IF ft*<>-J" fthO ft*<>"N" THEN 230 700 - - 

260 IF ft**"J" THEN GOSUB 460 _ . . 

710 FOR fl-1 

720 FOR B»R+1 

280 REM ****************t***»********** 

11 ° "E" * hovedprogrrm , 740 ^ XT B ,^ 

************** 730 I/2< >] 

310 GOSUB 390 ___ ... _ . 

320 TR«0iGOSUB 790 ® "°‘ 

330 GOSUB 970 IZ? ? ETURN 

340 GOSUB 1080 BO 

330 GOSUB 970 

360 IF RI<13 THEN 340 

370 X*1»Y-22IG0SUB 1320 

380 PRINT " VIL DU PR0VE IGEN MED SftMME UDGftNGS- STILLING? <J/N)" 

390 GET ft*:IF ft*<>"N" ftNO ft*<>■J" THEN 390 
400 IF ft**"J" THEN GOSUB 1220:GOTO 320 
410 PRINT "VIL DU HftVE ET NYT SPIL7CJ/N)- 
420 GET ft*:IF ft*<>-J- ftND ft*<>"N“ THEN 410 
430 IF ft**"J" THEN 310 
440 END 
430 * 

460 REM ******************************* 

470 REM * INSTRUKTION * 

480 REM ******************************* 

490 PRINT •<CLR ,CRSR NED2,SPftCE2)DETTE ER 14-13 ELLER BOSS-SPILLET. DINCCRSR 
NED)OPGftVE ER ftT FA DE 13 ■ t 

300 PRINT "BRIKKER SftT I NUM-<CRSR NED)MERORDEN VED HELE TIDEN ftT SKUBBE EN N 
ft-<CRSR NED )BOBR IK " I 

310 PRINT "HEN PA DEN TOMME PLftDS. <CRSR NED,SPftCE2)NA 

R ET SPIL ER SLUT,<CRSR HOJRE >HAR DU M") 

520 PRINT "ULIGHEDEN<CRSR NED)FOR ftT PR0VE IGEN MED SftMME UDGftNGSSTIL-<CRSR N 
ED)LING, OG SE OM -/ 

330 PRINT “DU KftN KLftRE DET MED F*R-< CRSR NED )RE TRlfK." 

340 PRINT:PR INTI PRINT:PRINT 

330 PRINT "<CRSR HOJRE9)TRYK EN TftST" 

360 GET ft«:IF ft«*"" THEN 360 
370 PRINT "<CLR)":RETURN 


380 : 

390 REM ******************************* 

600 REM * BRIKKERNE BLftNDES * 

610 REM ******************************* 

620 PRINT -<CLR)-:X-13:Y«12:G0SUB 1320IPRINT "VENT LIDT" 

630 FOR ft«0 TO 16:N<ft)»0:NEXT:RI-0 

640 FOR ft-l TO 15 

630 P<ft)«INT< 13*RN0< 1))*1 

660 IF N< P< ft ) )< >0 THEN 630 

670 N< P< ft) )-ft:G< ft )-P< ft) 

680 IF P<ft)«ft THEN R I *R I ♦1 
690 NEXT ft 
700 1-0 

710 FOR ft-1 TO 14 

720 FOR B-ft+1 TO 13 

730 IF P< B)< P< ft ) THEN I-I + l 

740 NEXT 8:NEXT ft 

730 IF I/2<>INT< 1/2) THEN 630 

760 P< 16)-0:G< 16)-0:N< 0)-l6 

770 RETURN 


1/ Benyt girokortet! 
Tegn abonnement 

SOFT Special er Danmarks eneste softwareblad. Hver 
anden mAned finder du side op og side ned med interes- 
sante programlistninger til markedets populate com- 
putere. 


Vi DU vaBre sikker pci at SOFT Special, hver gang bla- 
det udkommer, er det en god ide at tegne abonnement. 

6 numre at SOFT Special koster kun 153 kroner, - og du 
f&r bladene portofrit tilsendt. 


N5ede du ikke at kebe SOFT Special udgaverne, num- 
mer 1 og 3 hos din bladhandler. kan de stadig bestil- 
les direkte p& forlaget. Prisen er kr. 27.85 pr. styk plus 
eventuelt porto. 

* 

Ring og bestil abonnement eller aeldre numre pit telefon 
01-11 28 33. Eller indbetal straks 153 kroner pd postgiro 
konto 940 60 77. 


50 ^0 













730 REM ******************************* 

300 REM * SPlLLEPLAN * 

810 REM ******************************* 

320 PRINT "< CLR )"*X«llXY-3l GOSUB 1320 SPRINT 

830 X-11:Y*S:G0SUB 1320:PRINT "(RVS 0N)|(RVS OFF ) r - -r --r-r-.1 " 

340 FOR A * 1 TO 3 
350 FOR B - 1 TO 2 

360 X»11*Y»3*A+B*3*G0SUB 1320SPRINT "< RVS 0N)|<RVS OFF ) | | | | || '• 

370 NEXT B 

330 X-1 1 xY«3*A+6:G0SUB 1320:PRINT •<RVS 0N)|(RVS OFF) Y -4-4-4- HI " 

890 NEXT A 

300 FOR B « 1 TO 2 

310 X - 1 1 x Y-B+15 x GOSUB 1320XPRINT "(RVS ON)|(RVS OFF) 1 | | | || • 

320 NEXT B 

330 X - 1 1 x Y*13 x GOSUB 1320:PRINT "(RVS ON)|(RVS OFF ) *■--l-l-l -jg - 

940 X* 1 1 t Y*19:G0SUB 1320*PRINT " K RVS ON)^^ MB ^ H ^RVS OFF)*" 

950 RETURN 
960 * 

970 REM ******************************* 

980 REM * BRIKPLACERING * 

930 REM ******************************* 

1000 R I *0 

1010 FOR A * 1 TO 16:P**RIGHT*( STRS( P( A) ) ,2) 

1020 IF P<A > «0 THEN P*«" 

1030 X = 3*( ( A-1)-4*INT< ( A-1)/4))♦13*Y»3*INT( ( A-l)/4)+8*GOSUB 1320*PRINT P* 

1040 IF P< A > -A THEN RI«RI♦ 1 
1050 NEXT A 
1060 RETURN 
1070 * 

1080 REM ****************************** 

1090 REM * BRIKFLYTNING * 

1100 REM ****************************** 

1110 TR-TR♦ 1 x X-11XY-20xGOSUB 1320«PRINT "TRUK NUMMER ")TR 

1120 X=5:Y-22 * GOSUB 1320X INPUT "HVILKEN BRIK SKAL FLYTTES (CRSR VENSTRE6) 

" ; BR* 

1130 IF VAL( BR*)< 1 OR VAL(BR*)>15 THEN 1120 
1140 BR-VAL(BR*> 

1150 FOR A-l TO 4 

1160 IF FC N< 0) ,A)-NC BR) THEN 1130 
1170 NEXT A 
1 130 GOTO 1120 

1 190 P< N( 0) ) -BR : P( N< BR ) ) -0 i GE»N( 0 > : N( 0 )«N( BR ) : N( BR ) -GE 
1200 RETURN 


REM * SAMME UOGANGSSTILLING * 

FOR A-l TO 16 
PC A)»G( A) 

N( PC A) )-A 
NEXT A 
NC O)- 16 
RETURN 

t 

REM ***************************** 
REM * PR INTPOSITION * 

PRINT "(HOME)"; 

IF Y< >0 THEN POKE 214,Y-1 :PR INT 

POKE 2 1 1 ,X 

RETURN 


■ Der skal ikke sa meget til lor 
at lave flot gratik pb Lambda, 

ZX-81, Marathon eller Power 
3000. Disse korte og tb linier er s' 
ganske etfektive. men tast \ 
selv ind og prov. □ 

Jakob Pedersen 


FOR K=1O TOO STEP-2 
FOR A=© 7063 
PLOT ft,21+K*C0S (fi/3 
PLOT ft, 21+K*SIN (3/6: 
NEXT ft 


h ' r V T 
IMLA I 

D0 _ 0 

CLS 

SAVE 

RUN 


51 


























Masterle 


Q 

lllllllllll 


■ Programmet er et selvtcen- 
kende kryds og bolle. der i de 
larste spil kun kender de 
grundlaeggende regler for 
spillet. men som hver gang 
det dummer sig aldrig vil gen- 
tage netop den fejl det lige 
gjorde. 

P6 den mbde kan man i star- 
ten sld den uden sd meget be- 
svcer, men efter ca. 30 neder- 
lag er den sej og efter 40 
uovervindelig. Du harX'erne 
og fdr lov til at starte 
Felterne har folgende numre; 
1 23 
456 
789 

For at stimulere stormester reg¬ 
ler, spilles der med hhv. rort 
og sluppet bnk 


Opbygningen af program- 
met gdr kort fortalt ud pd at 
X'erne, O'erne og de blanke 
pladser nummereres med 
hhv, 1, 2 og 0. 

Pladserne lagres sd som f .eks 

210020121 der ville svare til: 

OX- 

-O- 

XOX 

Derefter omregnes der fra tre- 
talssystemet til decimalsyste- 
met, og pd den mdde gem- 
mes hver af de ca 20 000 for- 
skellige stillinger efterhdnden 
i form af decimaltal. 
Programmet passer til de fleste 
former for basic, og kan ellers 
konverieres relativt nemt 

Jens Peter Meilvang 


llllllllllllll 



MGBSW 1170 ’DIN 

430 IF RUM(SLET)()KR THEN BEEP:G0T0 410 

110 GOTO 1040 ’TEGN 

440 RUN(SLET)=0:GENF=SLET 

120 REM***** KOR ***** 

450 LOCATE 4,40,1:PRINT “Set felt : “;:SAET=VflL<INPUT*<1)) 

130 REN*************** 

460 LOCATE 4.51:PRINT SAET 

140 RUNDE=RUNDE*1 

470 IF SAET(1 OR SAET=SLET OR RUMISAETIOO THEN BEEPsGOTO 450 

150 G0SUB 380 

480 RUM (SAET) =KR:GENS=SAET 

160 TEGN=KR:G0SUB 500 

490 RETURN 

170 IF RUNDE=)3 THEN CHEK=KR:G0SU8 790 ’ 3 Paa STRIBE 

500 REM***** SAET t SLET ***** 

180 IF VUNDET=1 THEN RUN(GEMF)=«R:RUM<G€MS>=0:GOTO 950 

510 REM*********************** 

190 REN***** Artificial Iitelhger.se ***** 

520 IF RUNDE(=3 THEN 540 

200 REM*********************************** 

530 LOCATE INT(SLET/3.1)*6+4,(SLET-(INT(SLET/3.1)*3))*12-5:PRINT “ * 

210 SLET=0:SAET=0:TEGN=B0 

540 LOCATE INT(SAET/3.1)*6+4, (SAET-(INT(SAET/3.1)*3>)*12-5:PRINT TEENS(TEGN) 

220 IF RUNDE=> 2 THEN CHEK=KR:G0SUB 560 

550 RETURN 

230 IF RUNDE(=3 THEN 260 

560 REN***** KAN FA 3 PS? ***** 

240 SLET=SLET*1:SAET=0 

570 REM************************ 

250 IF RUMISLETIOBO THEN 330 

580 PS=0:TK=C:F0R Y=2 TO 1 STEP -1:TUR=0:F0R t=\ TO 9 

260 SAET=SAET+1 

590 IF RUN(X)=Y THEN TUR=TUR*1:BR(TUR)=X 

270 IF RUM(SAET)()0 OR SAET=SlET then 310 

600 l£XT X 

280 RUM(SAET)=B0:RUM(SLET)=0 

610 FOR X=1 TO 3:C1=INT(X*.5*.5):C2=INT(X*.5*2):AKTU=4-X 

290 G0SUB 850:IF 0K=O THEN 370 

620 FOR Z-l TO 9 

300 RUM(SAET)=0:RUM(SLET)=B0 

630 IF RUM(2)=0 AND V(BR(C1))*V(BR(C2))+V(I)=15 THEN PS=Y:TK=Z:SLET=BR(AKTU) 

310 IF SAET(9 THEN 260 

640 NEXT Z,X:F0R X=1 TO 3:BR(X)=0:NEXT X,Y 

320 IF RUNDE <=3 THEN 340 

650 IF PS=0 THEN RETURN 

330 IF SLET(9 THEN 240 

660 S(ST=TK 

340 LOCATE 8,40:PRINT "Opgir...* 

670 IF os=80 THEN G0SUB 500:L0CPTE 8,40:PRINT “Jet vanot...":CONP=COMP+1:RETURN 

350 IF RUNDE)3 THEN RUMIGEff )=KR 

1040 

360 RUN(GENS)=0:GOTO 950 

680 RUN(SAET)=B0:Y*0 

370 G0SUB 500:GOTO 140 

690 IF RIJNDE (=3 THEN 760 

380 REN***** INPUT ***** 

700 Y=Y+1 

390 REN* ****♦***♦*♦♦♦**« 

710 IF RUN(Y) OBO OR Y=SAET THEN 740 

400 IF RUNDE(=3 THEN 450 

720 RUM(Y)=0:G0SU8 650:IF 0K=! THEN RUM(Y)=B0:GOTO 740 

410 LOCATE 6,40,1:PRINT “Slet felt : “;:SLET=VAL(INPUTS(1)) 

730 T E6N=B0:SLET=Y:G0SUB 500:RETURN 140 

420 LOCATE 6,51:PRINT SLET 

740 IF Y<9 THEN 700 
































750 BUM(GENF)=KR:RUN(GENS)=0:GOTQ 760 
760 GOSUB 850 

770 IF 0K=0 THEN GOSUB 500:RETURN 140 

780 SUN!SfiE T )=0:RUN(GENS)=0:LOCATE 8.40;ORINT “Opgir...RETURN 950 
790 SEN***#* i PS **t« 

80(' OEM**************** 

810 SUN=0:VUNDET=0:FOR X=1 TO 9 
820 IF RUM(X)=CHEK THEN SUN=SUN+V(X) 

830 NEXT X:IF SUN=15 THEN VUNOET=! 

840 RETURN 

850 REM***** NOP JEG STOP HER ***** 

860 REM**************************** 

870 SUN=0:FOR X=1 TO 9 

880 IF SPEJLOO THEN SUN=SUN+STED(X)»3'(9-X) ELSE SUM=SUM+RUM(X)*3 A (9-X) 
890 NEXT X 

900 B06=INT (SUN/8.0001 )+l:DOLLflR=INT (BOG/255.001) :UDE=BOG-(OaiftR«255) 

910 IND=(SUN-(BOG-1)*8)-1:PSK=PSC(NID$(BRt(DOLLAR),UDE,1)) 

920 l€N=ASK 

930 QK=S6N(ASK AND 2 A IND) 

940 RETURN 

950 REN***** gera stilling ***** 

960 REM************************ 

970 LOCATE 9,40:PRINT “Du vandt...“:SPIL=SPIL+l:RESTORE 1400 
980 FOR SPEJL=1 TO 8 

990 FOR TUR=1 TO 9:REA0 A:STED(TUR)=RUN(A):NEXT TOR 
1000 GOSUB 850 

1010 IF 0K=O THEN NEN=NEN+2 A IND 
1020 MIW(BI»<D0LLAR),UDE,1)=CHR»(MEM) 

1030 NEXT SPEJL 

1040 REN***** NYT SP1L ***** 

1050 REN******************** 

1060 IF RUNDEOO THEN FOR X=1 TO 2000:NEXT X 

1070 G£NF=0:VUNDET=0:SLET=0:SPEJL=0:RUND€=0:FOR X=1 TO 9:RUM(X)=0:NEXT X 
1080 FOR X=1 TO 3:BR(X)=0:NEXT X 
1090 CLS:SCREEN 0,0,0:WIDTH 8O:COL0R 1 
1100 PRINT 0* 

1110 FOR X=1 TO 3:FOR Y=1 TO 5:PRINT M»:NEXT Y:PRINT S$:NEXT X 
1120 LOCATE 19,1:PRINT N$ 


1130 COLOR 2 

1140 LOCATE 21,1:PRINT NAVN*;SP1L 
1150 LOCATE 23,1:PRINT "NASTERLESS : “;CONP 
1160 COLOR 12: GOTO 140 
1170 REN***** INIT ***** 

1180 REN**************** 

1190 SCREEN 0:HIDTH 40:CLS:KEY OFF 

1200 COLOR 4,0:L0CATE 2,9,0:PRINT CHR»(213)*STRING*(21,205)+CHR«(184) 

1210 LOCATE 3,9,0:PRINT CHRt(179)*STRING$(21,32)*CHR$(179) 

1220 LOCATE 4,9,0:PRINT CHR$(179)j:COLOR 14:PRINT * MASTERLESS I “;:COLOR 
4:PRINT CHRt(179) 

1230 LOCATE 5,9,0:PRINT CHR»(179)+STRIN6*<21,32)*CHR»(179) 

1240 LOCATE 6,9,0:PRINT CHR*(212)+STRING$(21,205)*CHR*(190) 

1250 COLOR 15,0,0:L0CATE 8,20,0:PRINT “BY" 

1260 LOCATE 10,5,0:PRINT ‘Michael Seifert 4 Fyr Meilvang' 

1270 COLOR 13,0:LKATE 23,3,0:PR1NT “ Copyright 1985(0 by PPC Software ■ 

1280 COLOR 15:L0CATE 16,1:INPUT “NAVN : *,NAVN$ 

1290 IF NAVN$=“" THEN NAVN$="SPILLER“ 

1300 NAVN»=NAVN*+“ : • 

1310 DIM BR4(9) 

itwi n«=»_• 


1360 TESN»(1)=“0*:TE6N*(2)=*X“:KR=2:B0=1:TN=0 

1370 FOR X=0 TO 9:BR*(X)=STRING*(255,0):READ V(X):)€XT X 

1380 RETURN 

1330 DATA 100,4,3,6,9,5,1,2,7,6 

1400 DATA 1,2,3,4,5,6,7,8,9 

1410 DATA 7,4,1,8,5,2,9,6,3 jk 

1420 DATA 9,8,7,8,5,4,3,2,1 f I 

1430 DATA 3,6,9,2,5,8,1,4,7 

1440 DATA 3,2, 1, 6 , 5,4,9,8,7 A 

1450 DATA 1,4,7,2,5,8,3,6,9 \ ^ M V ^ 

1460 DATA 7,8,9,4,5,6,1,2,3 

1470 DATA 9,6,3,8,5,2,7,4,1 


1110 FOR X=0 TO 255 
1120 LET Y=ALF*X+BET+95 

1130 IF Y<0 OR Y>191 OR X<0 OR X>127 THEN GOTO 1150 
1140 PLOT X+127,Y 
1150 NEXT 

1160 FOR X=0 TO 255 
1170 LET Y=ALF4X+6ET+95 

1180 IF <-Y+190+< BETK2)X 0 OR OY+191+2*6ET»191 OR -X+127<0 THEN GOTO 1200 
1190 PLOT -X+127,-Y+190+BET*2 
1200 NEXT 

1205 CSR 0,22’ PRINT "TRYK EN TfiST" 

1210 LET L*=INKEY* = IF L*=“" THEN GOTO 1210 
1220 GOTO 360 
2000 CLS 

2010 CSR 5,1 PRINT "6EDSTE RETTE LINIE " 

2015 CSR 5,3’ PRINT "R=";R1 

2020 CSR 5,2’ PRINT "Y=" i HLF>"X+<">BET;“>“ 

2030 CSR 5,5’ PRINT "HVOR MANGE Y-VCRDIER VIL DU HAVE" 

2040 INPUT M 

2050 CSR 4,7’ PRINT "FOR HVILKE X VIL DU HAVE Y-VCRDIER" 

2060 LET R=8 

2070 FOR Nl=l TO M+l 

2080 INPUT X 

2090 LET Y=ALF*X+BET 

2100 CSR 5,P’ PRINT "(X,Y)=< ";X;", “;Y;" )“ 

2110 LET R=R+1 

2120 IF N1=M THEN CSR 15,22’ PRINT "TAST ET TAL «, <RET>" 

2130 NEXT 
2140 GOTO 360 
3000 CLS 

3010 CSR 5,1’ PRINT "BEDSTE RETTE LINIE" 

3015 CSR 5,3’ PRINT "R=";R1 

3020 CSR 5,2’ PRINT "Y=";ALF;"X+<" i BET>")" 

3030 CSR 4,5 PRINT “HVOR MANGE X-VCRDIER VIL DU HAVE" 

3040 INPUT M 

3050 CSR 4,7’ PRINT "FOR HVILKE Y VIL DU HAVE X-VCRDIER" 

3060 LET R=8 

3070 FOR Nl = l TO M+l 

3080 INPUT Y 

3090 LET XKY-BETO/ALF 

3100 CSR 5,R’ PRINT "<X,Y>=< ";X; “, "iYi " >“ 

3110 LET R=R+1 

3120 IF N1=M THEN CSR 15,22’ PRINT "TAST ET TAL & <RET>“ 

3130 NEXT 
3140 GOTO 360 
4000 GOTO 1@ 

5000 CLS ’ STOP 


Memograph/ 

Memotech halvdelen ai 
listningen taiat ua. Den kom- 
mer her 


Debug 


&& 53 













Du skal holde styr pd en ung- 
domsforbryder, der farer rund 
ti et ni-etagers hajhus og over- 
male vceggene med graffiti 
slagord. 

Han skal undgd at blive fan- 
get af vagtmanden. der lorfol- 
ger ham overalt i skyskrabe- 
ren. Betjenten kan holdes hen 
ved at lcegge en bombe (joy¬ 
stick ned, keyboard 9), som 
eksploderer kort tid efter. Vagt 
politimanden dor kun, hvis 
han er lige over bomben un¬ 
der eksplosionen. Selv om 
han dor, varer det ikke laen- 
ge. inden en kollega dukker 
op. Pd hver etage er der to 
elevatorer, en op og en ned. 
Ved hjoelp af dem kan vores 
maler bevcege sig mndt i hu- 
set. Graffitien skrives pd vceg- 
gen ved at trykke fire eller nul. 

Bogstaveme skal skrives i den 
rigtige rcekkefolge: Det forste 
skal skrives til hojre for eleva- 
toren. Pd en skoermradar kan 
du se, hvilke etager der er 
skrevet fcerdige. Er alle etager 
overmalede, gdr du videre til 
et nyt hus. 

Torben ogOlavKjcer 


SPEC¬ 

TRUM 


Programmer: 

Samtlige altrykte Ustrunger 
er atprovede ter ottenttig- 
gerelse Forlaget betaler 
skattetrit op tU 1000 kroner 
tor godkendte iaeserpro 
grammer Forlaget har ret til 
at attrykke godkendte pro¬ 
grammer l bladet og orient- 
liggere dem pd andre 
lagermedia 


1 LET Kr,i *2F.0fl 
200 : 

202 REM Erugcr grafik 
204. 

20 6 FOR m-USP " a ** TO U5R *'J* *7 
210 REfiD a POKE »,a 
220 N EXT m 

230 DOTR 1ft # r iL ■ , .-iA , 64 > 92 # 92,9S 
, 72 

24.0 DOTO 92 ,60,23,28,23, 28,<F«,26 
250 DOTO 20 ,23, 30 , 20,20,20,124., 
124. 

250 DOTH 0,3.“* , *■" ,25,28,25,5 
270 DOTO 28,2S,£8,28,28,28,6,38 
280 DOTO 20,20,20,20,20,20,31,3 

1 

290 DOTO 16,58, 18,54., 16,55,56,5 
300 DOTO 24., 60,126,24., 24., 24. , 24., 

0 

310 DOTO 24., 24., 24., 24., 126,60,24., 

0 

315 DOTO 0,191,191,191,0,253,25 
3,253 

317 GO 5UB 2000 

320 LET R«l: DIM G (9) : DIM (9 
, 18) DIM O* <9,18) 

360 : 

370 REM tegne skaern 

380 : 

385 FOR M-l TO 9: LET X$(M)-"": 
NEXT M 

400 OUER 0: POPER 0 BORDER 0 
INK 4 

410 PRINT INK 7;OT 2,1;"* GROFF 
ITI! PLOY TME GOME' *" 

420 PRINT OT 5,1;"THE BEST ONE 
TORBEN (2500)" 

430 PRINT OT 7,1;"BOMBS 
iri'i 123456789"; OT 9,1, "RUNDE " 

,r,OT 9,19;"SCORE 00000" 

*440 INK 2: FOR m-l TO 30 PRINT 
OT 11,«; ;OT 11✓3.6,1, "®";O 

T 19, », "fc", OT II+b/ 3.6,30, ’‘®" N 
EXT in 

450 PRINT OT 15,3; "^^";RT 16,3 
, t r*; OT 17,3; "■ I" ; OT 18,3, "■ 

*460 PRINT OT 15,26, "f^", OT 16, 
26; "■ l ■", OT 17,26,"! !";OT 15,26 

; "| 1" ;OT 13,14, ">1<" 

470 LET r-1: LET e-1: LET ab«9 
DIM g(9): DIM x*(9,18>: DIM a$( 
9,18) 

475 FOR •=! TO 9: RESTORE 9000* 
RND *130• REOD a* Cm) : NEXT m 
480 FOR »-l TO 9: LET g(■)*!: N 
EXT m 

490 LET b-6: LET te-0: LET sC*0 
: LET b*-"fi." 

600 : 

502 REM Spil 

504. 

506 INK 7: LET bp-100: LET RO«l 
0 *RND *50• LET C-25: LET cr«-.S: 
IF RND>.5 THEN LET cr-.B LET C= 
6 

510 IF INKEY4="7" THEN PRINT OT 
16,b;" ",OT 17,b," ",OT 18,b;" 

": LET b-b + 1: LET b$«“IL": BEFR 0 
,.3: IF b =26 THEN GO TO 1000 
520 IF INKEY 4 *"6" THEN PRINT OT 
16,b;" " ; OT 17,b; " " , OT 16,b," 
LET b-b-1: LET b*«"J": BEEP 0 
,.3: IF b-5 THEN GO TO 1010 
530 PRINT OT 16,b,"U";OT 17,b;" 
1", OT 18, b; b4 

535 IF bp<>100 THEN PRINT OT 18 
, bp , *"tf " 

540 LET teate-1: IF te*0 OND•bp 
=C THEN GO TO 800 
545 IF te-0 OND BP<>100 THEN PR 
INT OT 18, bp," ": LET bp-100 
550 IF INKEY$-"0" OND b-6*«/e) 
OND B < > 25 THEN PRINT OT 15,b,a$< 
e ) fg <e) ) • LET x$(e) «x$(e) ta$(e) ( 
g(e)): LET G(E)-G<E>*1: LET SC-S 
C + 10 

555 INK 4 PRINT OT 9,31-LEN ST 
SC'SC 

559 !tNK 7: IF INKEY$-"9" OND ab 

>0 OND bt >25 OND OND Ie <1 

THEN PRINT OT 18,b-l,"‘f" LET a 
b-a b-1‘ LET t e —5: PRINT OT 7,8*a 
b;" ": LET bp-b-1 

560 INK 7: IF INKEY$-"9" OND ab 
>0 OND b < >25 OND b**"fl." OND te<l 

THEN PRINT OT 18,b+l,"tf" LET a 
fc.mab-1- LET te-S PRINT OT 7,8 *a 
b, " ": LET bp *b + l 

565 IF TNT PO-3 THEN BEEP .3,0 
570 LET po«po-l: IF po>0 TMFN G 
O TO 510 

580 PRINT OT 16,c," ",OT 17,C;" 

“,OT 18,c;" “: LET c-c+cr 
590 PRINT OT 16,c;"*",OT 17,c;*‘ 
!", OT 18,c;("J" OND cra-.5)*f"lL 
OND cra.5) 

600 IF c*b OR c+l-b OR c-l«b TH 


EN GO TO 8000 
810 GO TO 510 
800• . a 
810 REM Eksplotion 

830 FOR ro =1 TO 10- PRINT RT 16, 

C,"f",OT 17,c,"i",OT 18,c;"l • B 
EEP .01,3: PRINT OT 18 , c £ * ‘ T , OT 
17,c,"*";OT 18,c;"*• NEXT w 
840 PRINT OT 18,c;" ";OT 17,C, 

8^0 T LET *c «25• LET cr«-.R: LET p 
oaRND*30*25: LET SC-Sc*225 
855 LET BP *100 
860 GO TO 510 

900 : . 

910 REM Elevator op/nec 

920 ’ 

1000 IF e«l THEN LET b*24: GO TO 
540 

1010 IF e■9 OND b»5 THEN LET b*6 

1012 "iF BP <>100 THEN PRINT OT 18 
, BP ; ** ** : LET BP =0 

1015 LET b«b*<b-S)-<b-26) ... 

1020 PRINT OT 16,b; ;OT 17,b, 

1040 PRINT OT 16,C; ";OT 17,C, 

", OT 18, c; " " 

1050 PRINT OT 15,7; 

1060 LET x$(e)*at(e)(1 TO y(e)-l 

1065 IF x$(e)-a$<e) THEN GO TO 1 
200 

1070 LET E-E*(B-6)-(B-25) 

1080 FOR Ral TO 4 BFFP .06,3: B 
EEP .05,10- BEFP .05,15- BEEP .0 
5,20: NEXT m __ 

1090 PRINT OT 13,15;e,OT 15,7;x* 

(p j 

1110 PRINT OT 16,b; ‘X ";OT 17,b; 
f ", OT 18, b, b* 

1120 GO TO 500 _ — _ 

1200 PRINT INK 4, INUERSE 1; FLO 
SH 1;OT 7,19*e;e 
1210 LET OZP-0 —__ 

1220 FOR M-l TO 9 IF OTTR <7,19 
♦M)=132 THEN LET OZP=OZP*l: NEXT 
M 

1230 IF OZPeS THEN LET SC«SC(500 
GO TO 470 
1240 GO TO 1070 

2000 POPER 0 BORDER 0 INK 2: C 
2005 PRINT OT 6,0; 

2010 FOP mal TO 48 PRINT "SSSSS? 

SaaSRB"; : next m 

2030 PRINT , OUER 0, POPER 0; IN 
X B;ftT lu,R, •• Q Jt.ORG by TfcO SOF 

T" 

2100 PRINT OUER 0, POPER 0, INK 

2999 IF INKEY $ —"" THEN GO TO 299 

3000 CLS RETURN 
“>000 PRINT OT 21,4;" 

",OT 21,7, "NOUN I 

NPUT LET Y*a(H**" ••) ( T 

O 6) 

7010 PRINT INK 4,OT 5,17;Y$," (" 

7015 LET hsc-sc 
7020 RETURN 

8000 FOR N — 1 TO 15: FOR M-l TO 7 
PRINT INK H,OT 21.4.“POLITTMfiW 
DEN FflNGEDC D*G": NEXT mT BEEP V 
005,0: NEXT N 

’fit C _ THCN GO SUB 7000 
S PRINT PT 21,4., •' PRESS S 

S030 IF INKEY* = •••■'THEN GO TO 803 

S035 PRINT INK 4., RT 15,7," 

_ _ ",RT 9, as, 000000" ,p 

17, S; " ",RT 1S,B, " 
THEN pfelNT PT 18,cj 
",PT 17,C;" ,PT 18,C:" " 

8 ®?7 PRINT INK 4,PT 13,15,"1";PT 
21,7, . BFFP P 

PRINT INK 4.RT 7,30;"13345678 
- , PT 7,7; " V * f 't V v i >,■ 

•5040 GO TO 470 

" K0E ""PLT OH DPT P. 

S010 DPTP "KILBOY UPS HERE'.'" 
9030 DPTP "K0B SOFT SPECIPL'‘" 

9030 DPTP "HUHPMMED .. 

§040 DPTP "BZ -JORDKLODEN' ' ' ' ' " 
gfiTP "IPPN UD PF BELGIEN" 
225® DnTR "CENERBLEP FOR FRED" 
9070 DPTP "OUERMPL DIN BY''''" 
-222 P2Z? "RF.5KBF COMPUTEBNE ! " 
9090 DPTP "P-KRRFT ER D0DGODT" 
9100 DPTP FRI HPSH PPP MBPS'" 

9110 DPTP "SKRIU GRAFFITI. 

9130 DPTP "HUP SKA -JEG 5KPXUE" 
9130 DPTP "IJD ME SGOUEN." 

























SA KOM DET OMSIDER 


- ’’ALT OM DATA’S” STORE 


COMMODORE BLAD 



FYLDT MED TESTS AF SP/ENDENDE ARTIKLER OG 
TIPS. OG MED EN GRATIS FLEXPLADE INDLAGT 
MED 6 ST/ERKE C-64 PROGRAMMER PA. 


K0B STRAKS 
"COMPUTER” NR. 1 


HOS DIN BLADHANDLER. 
PRIS KUN KR. 29,85. 


Laes bl.a.: 

Kaempetest af den brandvarme Commodore 128, 
Voice Master - 64’eren som "bugtaler”. 
SAS-piloten tester flysimulatorer. 

Tips og tricks til C-16 og Plus/4. 

Commodore 64 leger videokamera. 

Memory Map og maskinkode 64. 

1541 mod konkurrenterne. 


Vind Fuji printer. 
Alt om Comal. 











F flnnti ELI SB? 

ifacrai til 64'eren _ 


vi TESTER 


aTftlil 520 ST 


MSXfia 


22_SIDER 


med 

programmer 


ssarrk^ 


Op at ken 

computet 


Keb del nye ’’hotte” 
nummer of ’’Alt om Data” 
i kiosken. Kun kr. 23 , 85 . 

Du kan ogsa fa bragt bladet 
gratis til din bopcel. 

12 numre koster kr. 262,35. 

Ring efter et girokort pd tit. 01-11 28 33. 



















